hmmm.... Coba dibiasakan kalau connect ke dbms, pindahkan cursor ke client. Jadi, sebelum open connection, beri pengaturan lokasi cursor ke client misal object connection bernama conn
conn.cursorlocation=aduseclient conn.open Biasanya kalau cursor sudah di client, methods copyfromrecordset milik range akan bekerja lebih baik karena berhasil menerima seluruh recordset dari hasil eksekusi query. Regards, Kid On Thu, Aug 15, 2019 at 3:16 PM [email protected] [belajar-excel] < [email protected]> wrote: > > > 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 > > > > > > >
