Visual Basic - Consulta sobre SQL en Visual basic 6 con access

Life is soft - evento anual de software empresarial
   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Consulta sobre SQL en Visual basic 6 con access

Publicado por kdlc (225 intervenciones) el 25/03/2008 22:04:45
Private Function graba()

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

rs.Open "Alta_casos", data.pedidos ... 'abres la tabla

'agregas un nuevo registro a la tabla
rs.addnew
rs.fields("nro_user").value =u.UserName
rs.fields("id").value = u.dific
rs.fields("otros").value = u.otros
rs.fields("horaini").value =u.hora_desde 'usar # si esta definido como datetime
rs.fields("horafin").value = u.hora_hasta 'usar # si esta definido como datetime
rs.fields("totalhs").value = u.total_hs '# si esta definido como datetime en tabla
rs.fields("fecha").value = u.fecha 'debes usar # si esta definido como datetime

'grabas el registro a la tabla
rs.update

Command2_Click
End Function

Suerte,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Consulta sobre SQL en Visual basic 6 con access

Publicado por Diego (2 intervenciones) el 25/03/2008 22:26:43
Muchas gracias por el dato lo voy a probar y sobre todo gracias por la rapidez.
Saludos,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar