Dear Be Exceler,
Mohon suggest saya mencoba membuat script vba untuk menarik data dari table
mysql, namun actual nya data yang tergrab terpotong,
Pada header udah terpenuhi, namun pada record hanya sampai record kolom "O"
saja, klom selanjutnya record nya blank.
Padahal data actual nya sudah terpenuhi.
Mohon di bantu Analisa untuk penulisan script berikut :
Sub LoadData()
Dim conn As New ADODB.Connection
Dim record_set As New ADODB.Recordset
Dim column_name As ADODB.Field
Dim i As Integer
conn.ConnectionString = "driver={mysql odbc 3.51
driver};server=LINK;port=3306;database=DATABASE;uid=USER;password=PASSWORD;"
conn.ConnectionTimeout = 3
conn.Open
record_set.Open "select * from employee_noc", conn
For Each column_name In record_set.Fields
ThisWorkbook.Sheets(2).Range("A1").Offset(0, i).Value = column_name.Name
i = i + 1
Next
ThisWorkbook.Sheets(2).Range("A2").CopyFromRecordset record_set
record_set.Close
Set record_set = Nothing
conn.Close
Set conn = Nothing
End Sub
Thanks
Best Regards
Muhammad Iqbal
+62890909010/0811101854
