SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: ElNapster en Miércoles 6 de Diciembre de 2006, 16:53

Título: Excell Y Basic
Publicado por: ElNapster en Miércoles 6 de Diciembre de 2006, 16:53
Que tal , tengo problemitas al querer tratar de importar una data de excell a una tabla de una base de datos de SQL .....  :angry:
Alguien sabe como se hace esto ....

Yo lo estoy haciendo pero la data por el momento la estoy mostrando a un datagrid , pero mi objetivo no es ese sino que de una vez me haga el insert en la tabla de sql ...

Gracias por la ayuda...

Este es el codigo ....

Código: Text
  1.  
  2.     Dim cnn As ADODB.Connection
  3.     Dim rs As ADODB.Recordset
  4.     Set cnn = New ADODB.Connection
  5.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  6.                     "Data Source=C:\solar.xls;" & _
  7.                     "Extended Properties=""Excel 8.0;HDR=Yes;"""
  8.     Set rs = New ADODB.Recordset
  9.     With rs
  10.         .CursorLocation = adUseClient
  11.         .CursorType = adOpenStatic
  12.         .LockType = adLockOptimistic
  13.     End With
  14.     rs.Open "SELECT * FROM [solar$]", cnn, , , adCmdText
  15.     End Select
  16.        
  17.     ' Propiedades del control DataGrid
  18.     With Data1
  19.         .AllowDelete = True
  20.         .AllowAddNew = True
  21.         .AllowUpdate = True
  22.        ' Establezco el origen de datos del DataGrid
  23.        Set .DataSource = rs
  24.     End With
  25.  
Título: Re: Excell Y Basic
Publicado por: Mollense en Miércoles 6 de Diciembre de 2006, 18:14
Citar
End Select
¿De qué?

Código: Text
  1.  
  2.   Dim cnn As ADODB.Connection
  3.   Dim rs As ADODB.Recordset
  4.   Set cnn = New ADODB.Connection
  5.   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  6.   "Data Source=C:\solar.xls;" & _
  7.         "Extended Properties=""Excel 8.0;HDR=Yes;"""
  8.   Set rs = New ADODB.Recordset
  9.   With rs
  10.     .CursorLocation = adUseClient
  11.     .CursorType = adOpenStatic
  12.     .LockType = adLockOptimistic
  13.   End With
  14.   rs.Open "SELECT * FROM [solar$]", cnn, , , adCmdText
  15.   End Select
  16.   if(rs.BOF and rs.EOF)then
  17.     exit sub
  18.   endif
  19.   rs.moveFirst
  20.   Do Until rs.EOF
  21.     'formular la sentencia SQL
  22.     txtsql = "INSERT INTO TuTabla (campo1, campo2, ..., campo_n) VALUES( rs.Fields(0).Value, rs.Fields(1).Value, ..., rs.Fields(n).Value)
  23.     'ejecuta la sentencia, busca en el foro si no sabes como
  24.     'Muévete al siguiente registro
  25.     rs.MoveNext
  26.   Loop
  27.  
  28.  
Si no sabes el valor de n, es decir que no sabes cuantos campos tiene la tabla puede aberiguarlo con "rs.Fields.Count".
Entonces para generar la sentencias usas algo como esto:
Código: Text
  1. For lcol = 0 To rs.Fields.Count - 1
  2.  
Título: Re: Excell Y Basic
Publicado por: Mollense en Miércoles 6 de Diciembre de 2006, 18:24
Conexión y ejecución (http://foros.solocodigo.com/index.php?showtopic=25125)

¿En que quedamos con ESTO (http://foros.solocodigo.com/index.php?showtopic=25311&st=0&#entry91390)?

¿Estabas fumado?

Paz y amor :hippi:
Título: Re: Excell Y Basic
Publicado por: ElNapster en Miércoles 6 de Diciembre de 2006, 18:30
Ah lo de
Código: Text
  1. End Select
  2.  

se me fue de largo.....  :lol:

y con esto

Código: Text
  1. ¿En que quedamos con ESTO?
  2.  
  3. ¿Estabas fumado?
  4.  
  5. Paz y amor  
  6.  

Ya se me paso  ;) , esque vos sabes que hay dias enque uno esta como que todo te revienta jajaj pero no te preocupes amigo .. aver que dia no hechamos las frias ajajjaaj para limar asperezas , (Bromas )
:beer:
:hippi:
Título: Re: Excell Y Basic
Publicado por: Mollense en Miércoles 6 de Diciembre de 2006, 19:37
OK, mejor te agarro con una garlopa (Bromas) :devil:

 :band:
Título: Re: Excell Y Basic
Publicado por: ElNapster en Miércoles 6 de Diciembre de 2006, 22:45
Que es GARLOPA ? :scream:
Título: Re: Excell Y Basic
Publicado por: Mollense en Miércoles 6 de Diciembre de 2006, 22:46
Es una herramienta de carpintero que saca pedazos a la madera.