• Viernes 8 de Noviembre de 2024, 18:42
« anterior próximo »
Páginas: [1]

Autor Tema:  Visual Dbgrid Y Excel  (Leído 836 veces)

luiski

  • Nuevo Miembro
  • *
  • Mensajes: 13
    • Ver Perfil
Visual Dbgrid Y Excel
« en: Viernes 6 de Octubre de 2006, 12:23 »
0
Hola colegas tngo un problema sobre conexion de datos y selects sobre excel alguien me podria ayudar???

Código: Text
  1.  
  2. Private Sub Command1_Click()
  3. Application.DisplayAlerts = False
  4.  
  5. If ruta <> "" Then
  6. 'On Error GoTo salir
  7. Label11 = 0
  8. Dim prendas, bultos As Integer
  9. Dim Mirecordset1 As Recordset
  10. Dim Mirecordset2 As Recordset
  11. Dim Mirecordset3 As Recordset
  12.  
  13. Dim fecha, code_client, ref_code_client, N_expedition, N_comande, codi_CWF, codi_CEPL As String
  14. Set Mirecordset1 = Data1.Recordset.OpenRecordset("select * from lista$")
  15.  
  16. While Not Mirecordset1.EOF
  17.     fecha = Mirecordset1.Fields(2)
  18.     Text1.Text = fecha
  19.     bultos = 0
  20.     prendas = 0
  21.    
  22.     code_client = Mirecordset1.Fields(4)
  23.     ref_code_client = Mirecordset1.Fields(7)
  24.    
  25.     Set Mirecordset2 = Data1.Recordset.OpenRecordset("select * from lista$ where Data1.Recordset.Fields(4)=" & code_client & " and Data1.Recordset.Fields(7)=" & ref_code_client)
  26.     While Not Mirecordset2.EOF
  27.         N_comande = Mirecordset2.Fields(11)
  28.              
  29.         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)
  30.         While Not Mirecordset3.EOF
  31.             code_client = Mirecordset3.Fields(4)
  32.             codi_CWF = Mirecordset3.Fields(27)
  33.             codi_CEPL = Mirecordset3.Fields(28)
  34.             N_expedition = Mirecordset3.Fields(1)
  35.    
  36.             Text2.Text = code_client
  37.             prendas = prendas + Val(Mirecordset3.Fields(23))
  38.             Text7.Text = codi_CEPL
  39.             Text3.Text = codi_CWF
  40.             Text6.Text = N_expedition
  41.             Text8.Text = ref_code_client
  42.             bultos = bultos + 1
  43.             Text4.Text = prendas
  44.             Text5.Text = bultos
  45.            
  46.             Mirecordset3.MoveNext
  47.             Label11 = Label11 + 1
  48.         Wend
  49.         Mirecordset2.MoveNext
  50.     Wend
  51.     Mirecordset1.MoveNext
  52. Wend
  53. ElseIf ruta = "" Then
  54.     GoTo salir
  55. End If
  56. salir:
  57. MsgBox "sacabo"
  58. End Sub
  59.  
  60.  
_____
Me da un error "Error de conversion de tipos de datos", en esta linea:
Código: Text
  1. Set Mirecordset1 = Data1.Recordset.OpenRecordset("select * from lista$")
  2.  

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...
Páginas: [1]
« anterior próximo »