Programación General > Visual Basic 6.0 e inferiores

 Visual Dbgrid Y Excel

(1/1)

luiski:
Hola colegas tngo un problema sobre conexion de datos y selects sobre excel alguien me podria ayudar???


--- Código: Text --- Private Sub Command1_Click()Application.DisplayAlerts = False If ruta <> "" Then'On Error GoTo salirLabel11 = 0Dim prendas, bultos As IntegerDim Mirecordset1 As RecordsetDim Mirecordset2 As RecordsetDim Mirecordset3 As Recordset Dim fecha, code_client, ref_code_client, N_expedition, N_comande, codi_CWF, codi_CEPL As StringSet Mirecordset1 = Data1.Recordset.OpenRecordset("select * from lista$") While Not Mirecordset1.EOF    fecha = Mirecordset1.Fields(2)    Text1.Text = fecha    bultos = 0    prendas = 0        code_client = Mirecordset1.Fields(4)    ref_code_client = Mirecordset1.Fields(7)        Set Mirecordset2 = Data1.Recordset.OpenRecordset("select * from lista$ where Data1.Recordset.Fields(4)=" & code_client & " and Data1.Recordset.Fields(7)=" & ref_code_client)    While Not Mirecordset2.EOF        N_comande = Mirecordset2.Fields(11)                      Set Mirecordset3 = Data1.Recordset.OpenRecordset("select * from lista$ where Data1.Recordset.Fields(4)=" & code_client & " and Data1.Recordset.Fields(7)=" & ref_code_client & " and Data1.Recordset.Fields(11)=" & N_comande)        While Not Mirecordset3.EOF            code_client = Mirecordset3.Fields(4)            codi_CWF = Mirecordset3.Fields(27)            codi_CEPL = Mirecordset3.Fields(28)            N_expedition = Mirecordset3.Fields(1)                Text2.Text = code_client            prendas = prendas + Val(Mirecordset3.Fields(23))            Text7.Text = codi_CEPL            Text3.Text = codi_CWF            Text6.Text = N_expedition            Text8.Text = ref_code_client            bultos = bultos + 1            Text4.Text = prendas            Text5.Text = bultos                        Mirecordset3.MoveNext            Label11 = Label11 + 1        Wend        Mirecordset2.MoveNext    Wend    Mirecordset1.MoveNextWendElseIf ruta = "" Then    GoTo salirEnd Ifsalir:MsgBox "sacabo"End Sub  _____
Me da un error "Error de conversion de tipos de datos", en esta linea:

--- Código: Text ---Set Mirecordset1 = Data1.Recordset.OpenRecordset("select * from lista$") 
alguien me podria decir porke me falla y si la sintaxi de los bucles estan bien para ke cada select seleccione datos mas filtrados todavia... gracias...

Navegación

[0] Índice de Mensajes