Programación General > Visual Basic 6.0 e inferiores

 Excell Y Basic

(1/2) > >>

ElNapster:
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 ---     Dim cnn As ADODB.Connection    Dim rs As ADODB.Recordset    Set cnn = New ADODB.Connection    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _                    "Data Source=C:\solar.xls;" & _                    "Extended Properties=""Excel 8.0;HDR=Yes;"""    Set rs = New ADODB.Recordset    With rs        .CursorLocation = adUseClient        .CursorType = adOpenStatic        .LockType = adLockOptimistic    End With    rs.Open "SELECT * FROM [solar$]", cnn, , , adCmdText    End Select           ' Propiedades del control DataGrid    With Data1        .AllowDelete = True        .AllowAddNew = True        .AllowUpdate = True       ' Establezco el origen de datos del DataGrid       Set .DataSource = rs    End With 

Mollense:

--- Citar ---End Select
--- Fin de la cita ---
¿De qué?


--- Código: Text ---   Dim cnn As ADODB.Connection  Dim rs As ADODB.Recordset  Set cnn = New ADODB.Connection  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _  "Data Source=C:\solar.xls;" & _        "Extended Properties=""Excel 8.0;HDR=Yes;"""  Set rs = New ADODB.Recordset  With rs    .CursorLocation = adUseClient    .CursorType = adOpenStatic    .LockType = adLockOptimistic  End With  rs.Open "SELECT * FROM [solar$]", cnn, , , adCmdText  End Select  if(rs.BOF and rs.EOF)then    exit sub  endif  rs.moveFirst  Do Until rs.EOF    'formular la sentencia SQL    txtsql = "INSERT INTO TuTabla (campo1, campo2, ..., campo_n) VALUES( rs.Fields(0).Value, rs.Fields(1).Value, ..., rs.Fields(n).Value)    'ejecuta la sentencia, busca en el foro si no sabes como    'Muévete al siguiente registro    rs.MoveNext  Loop  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 ---For lcol = 0 To rs.Fields.Count - 1 

Mollense:
Conexión y ejecución

¿En que quedamos con ESTO?

¿Estabas fumado?

Paz y amor :hippi:

ElNapster:
Ah lo de

--- Código: Text ---End Select 
se me fue de largo.....  :lol:

y con esto


--- Código: Text ---¿En que quedamos con ESTO? ¿Estabas fumado? Paz y amor   
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:

Mollense:
OK, mejor te agarro con una garlopa (Bromas) :devil:

 :band:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente