Visual Basic

[zack]

Dim Conectar As ADODB.Connection
Dim Recorrer3 As ADODB.Recordset
Dim guardar As ADODB.Recordset
Dim Sql As String
Private Sub btn_ingresos_Click()

guardar.AddNew
guardar!fecha = Text_fechas.Text
guardar!proveedor = Combo1.Text
guardar!camiones = Val(Text_camiones.Text)
guardar!volumen = Val(Text_volumen.Text)
guardar!totalcamion = Text_totalc.Text



guardar!totalvolumen = Text_totalv.Text

MsgBox (" Datos Ingresados Correctamente")
guardar.Update

End Sub


Private Sub btn_total_Click()


Text_totalc = Val(Text_volumen) + Suma


End Sub

Private Sub Combo1_GotFocus()
Recorrer3.MoveFirst

Do While Not Recorrer3.EOF

Conectar.Execute (Sql)
Combo1.AddItem (Recorrer3!nombre_proveedor)
Recorrer3.MoveNext

Loop

End Sub

Private Sub Command1_Click()
Unload Me

End Sub

Private Sub Form_Load()

Sql = " Select * from proveedor"

conexion = "Microsoft.Jet.OLEDB.4.0;Data Source=C:\sistema3.mdb;Persist Security Info=False"


Set Conectar = New ADODB.Connection

Conectar.Provider = conexion
Conectar.Open

Set guardar = New ADODB.Recordset

Set Recorrer3 = Conectar.Execute(Sql)

guardar.CursorType = adOpenDynamic
guardar.LockType = adLockOptimistic
guardar.Open "ingresos", Conectar, , , adCmdTable

End Sub


Me sale un error que dice que no corresponde a la coleccion de objetos y resulta que el nombre se llama igual en el textbox y en la base de datos

[GeoAvila]

muy probablemente sean los formatos que estas trabajando los formatos tienen que ser exactamente los que tiene la base de datos, por elejemplo si es un numero lo encerras dentro de val(), y que si es un texto sea como tal...

nos vemos..

[zack]

Hola de nuevo:

Gracias por responder mi mensaje de duda

[GeoAvila]

Pora nada para eso somos Foreros...

nos vemos..