Alguien que me ayude
Publicado por joss (1 intervención) el 12/09/2002 01:42:03
Hola, soy nuevo en programacion, estoy realizando una aplicacion pero en mi codigo no encuentro cual es mi error alguien que le de una mirada a mis lineas para ayudarme a encontrar mi error gracias...
_______________________________________________________
Private Sub CmdGuardar_Click()
______________________________________________________
Dim Codigo As Integer
Dim nombre As String
Dim direccion As String
Dim telefono As String
Dim ciudad As String
Dim fax As String
Dim fecha_nacimiento As Variant
Dim fecha_ingreso As Variant
Dim codigo_ingreso As Integer
Dim stock As Integer
Set cnconexion = New ADODB.Connection
Set cmdcommand = New ADODB.Command
Inicia
cnconexion.Open CadenaConexion
cmdcommand.cmdtext = "INSERT INTO Catalogo_Clientes(codigo, nombre, direccion, telefono, ciudad, fax, fecha_nacimiento, fecha_ingreso, codigo_ingreso, stock)"
cmdcommand.cmdtext=cmdcommand.cmdtext & " values " ('" & Codigo & "'," & nombre & "'," & direccion & "'," & telefono & "'," & ciudad & "'," & fax & "'," & fecha_nacimiento & "'," & fecha_ingreso & "'," & codigo_ingreso & "'," & stock & " )"
cmdcommand.CommandType = adCmdText
Set cmdcommand.ActiveConnection = cnconexion
Set rsrecordset = cmdcommand.Execute
cnconexion.Close
--------------------------------------------------------------------------------------------------
me marca el sig. error:
end of statement, en la linea donde esta el "values".
Gracias...
_______________________________________________________
Private Sub CmdGuardar_Click()
______________________________________________________
Dim Codigo As Integer
Dim nombre As String
Dim direccion As String
Dim telefono As String
Dim ciudad As String
Dim fax As String
Dim fecha_nacimiento As Variant
Dim fecha_ingreso As Variant
Dim codigo_ingreso As Integer
Dim stock As Integer
Set cnconexion = New ADODB.Connection
Set cmdcommand = New ADODB.Command
Inicia
cnconexion.Open CadenaConexion
cmdcommand.cmdtext = "INSERT INTO Catalogo_Clientes(codigo, nombre, direccion, telefono, ciudad, fax, fecha_nacimiento, fecha_ingreso, codigo_ingreso, stock)"
cmdcommand.cmdtext=cmdcommand.cmdtext & " values " ('" & Codigo & "'," & nombre & "'," & direccion & "'," & telefono & "'," & ciudad & "'," & fax & "'," & fecha_nacimiento & "'," & fecha_ingreso & "'," & codigo_ingreso & "'," & stock & " )"
cmdcommand.CommandType = adCmdText
Set cmdcommand.ActiveConnection = cnconexion
Set rsrecordset = cmdcommand.Execute
cnconexion.Close
--------------------------------------------------------------------------------------------------
me marca el sig. error:
end of statement, en la linea donde esta el "values".
Gracias...
Valora esta pregunta


0