Hola que tal a todos:
tengo la siguiente situacion, tengo una tabla que se llama tblprueba tiene 2 columnas, esta tabla esta diseñada en MySQL, los campos son los siguiente:
idcliente integer not null
sistema varchar(10) not null
diariamente lo actualizo lo hago desde un archivo de excel con extension csv.,pero primeramente el archivo original tiene formato .xls y en ese archivo tiene 30 columnas, yo nada mas necesito dos (idcliente y sistema), en el proyecto de vb 6 tengo un datagrid y si puedo cargar los datos del archivo de excel.xls al datagrid, pero quiero que estos datos que ya estan en el datagrid se grabe en la tabla de mysql tblprueba, me pueden ayudar, anexo mi codigo del vb.
codigo en el formulario
Option Explicit
Public rs_tblprueba As ADODB.Recordset
Sub datos_tblprueba()
Dim consecutivo As Long
Set rs_tblprueba = New ADODB.Recordset
On Error Resume Next
With rs_tblprueba
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "SELECT * FROM tblprueba"
End With
End Sub
Private Sub cmdExcel_Click()
Dim obj As New Class1
Set DataGrid1.DataSource = obj.Leer_Excel(App.Path & "\DATOS\" & "tablaoriginal.xls", "repi")
Set obj = Nothing
End Sub
Private Sub Form_Load()
Dim obj As New Class1
Set dgExcel.DataSource = obj.Leer_Excel(App.Path & "\DATOS\" & "tablaoriginal.xls", "repi")
Set obj = Nothing
End Sub
codigo en el modulo tipo clase
Option Explicit
'devuelve un objeto Recordset con los datos de la hoja
Public Function Leer_Excel(ByVal PathXls As String, Hoja As String) As ADODB.Recordset
On Error GoTo ErrorFunction
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim cs As String
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic
cs = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & PathXls
Hoja = "[" & Hoja & "$" & "]"
'rs.Open "SELECT * FROM " & Hoja, cs
rs.Open "SELECT c_cliente,c_sistema FROM " & Hoja, cs
Set Leer_Excel = rs
Set rs = Nothing
Exit Function
ErrorFunction:
MsgBox Err.Description, vbCritical
Err.Clear
End Function
