Consulta sobre SQL en Visual basic 6 con access
Publicado por Diego (2 intervenciones) el 25/03/2008 21:52:57
Hola como va les cuento que hice un programita de pedidos y tengo una funcion que me da un error cuando la ejecuta la funcion es la siguiente
/////////////////////////////////////////////////////////////////////////////////////////////////////////
Private Type casos
UserName As Long
dific As Long
otros As String
observaciones As String
hora_desde As Integer
hora_hasta As Integer
total_hs As Double
fecha As String
End Type
////////////////////////////////////////////////////////////////////////////////////////////////////////////
Private Function graba()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "INSERT INTO Alta_casos (nro_user, id, otros, horaini, horafin, totalhs, fecha)
VALUES (" & u.UserName & ", " & u.dific & ",'" & u.otros & "'," & u.hora_desde & "," & u.hora_hasta & "," & u.total_hs & ",'" & u.fecha & "')", Data.Pedidos
Command2_Click
End Function
////////////////////////////////////////////////////////////////////////////////////////////////////////////
Cuando quiero grabar los datos me pone se requiere un objeto y cuando lo depuro me senala la fila de rs.open me parece que me comi algo y no se que es puse las variables numericas sin comillas simples y las no numericas con comillas simples, le mando la estructura. Gracias
/////////////////////////////////////////////////////////////////////////////////////////////////////////
Private Type casos
UserName As Long
dific As Long
otros As String
observaciones As String
hora_desde As Integer
hora_hasta As Integer
total_hs As Double
fecha As String
End Type
////////////////////////////////////////////////////////////////////////////////////////////////////////////
Private Function graba()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "INSERT INTO Alta_casos (nro_user, id, otros, horaini, horafin, totalhs, fecha)
VALUES (" & u.UserName & ", " & u.dific & ",'" & u.otros & "'," & u.hora_desde & "," & u.hora_hasta & "," & u.total_hs & ",'" & u.fecha & "')", Data.Pedidos
Command2_Click
End Function
////////////////////////////////////////////////////////////////////////////////////////////////////////////
Cuando quiero grabar los datos me pone se requiere un objeto y cuando lo depuro me senala la fila de rs.open me parece que me comi algo y no se que es puse las variables numericas sin comillas simples y las no numericas con comillas simples, le mando la estructura. Gracias
Valora esta pregunta


0