Título: en access funciona en excel no.... porke????
Publicado por: pandoro en 7 Octubre 2006, 16:31 pm
Mi codigo es este: Data1.Visible = True DBGrid1.Visible = True Dim contador2, cont As Integer Dim code_client As String Dim consulta, consulta2 As String
contador2 = 0 cont = 0
Data1.Connect = "Excel 8.0;" Data3.Connect = "Excel 8.0;" Data1.DatabaseName = App.Path & "\nuevo.xls" Data3.DatabaseName = App.Path & "\nuevo.xls"
consulta = "select lista$.[Code client] from [lista$] group by lista$.[Code client]"
Data1.RecordSource = consulta Data1.Refresh
Text2.Text = "Encontrados: " & Data1.Recordset.RecordCount & " registros."
Do While Not Data1.Recordset.EOF code_client = Data1.Recordset.Fields(0)
consulta2 = "SELECT lista$.[Code client], lista$.[N° colis CWF], Sum(lista$.[Qté livrée]) AS [SumaDeQté livrée], lista$.[Réf Cde client], lista$.[N° expédition CWF], lista$.[N° expédition CEPL] From [lista$] where lista$.[Code client]=""" & code_client & """ GROUP BY lista$.[Code client], lista$.[N° colis CWF], lista$.[Réf Cde client], lista$.[N° expédition CWF], lista$.[N° expédition CEPL]"
Data3.RecordSource = consulta2 Data3.Refresh Do While Not Data3.Recordset.EOF Form2.Show For cont = 0 To 5 Form2.Text1(cont).Text = Data3.Recordset.Fields(cont) Next Data3.Recordset.MoveNext Loop Data1.Recordset.MoveNext Loop
Data1.Recordset.MoveFirst Data3.Recordset.MoveFirst
Pero exactamente el mismo en access me funciona pero este en excel cuando llega a Data3.Refresh me da error y dice que " Pocos parámetros. Se esperaba 1." alguien me puede ayudar???
Título: Re: en access funciona en excel no.... porke????
Publicado por: CeLaYa en 7 Octubre 2006, 22:21 pm
ese error que te da, sale cuando en la consulta que haces a la tabla (en este caso a tu hoja de excel) haces referencia a un campo que no existe, por ejemplo que tengas un campo llamado "Code Client" y que a la hora de hacer la consulta lo escribiste "Code Clint", revisa que los nombre de los campos de tu hoja de excel sean iguales a los de la consulta <sql>
|