wan2c 0 Report post Posted August 29, 2010 salam..minta tolong kat otai2 semua...sapa ada sample vb yang bleh sync access 2000..dah cari dalam planetsourcecode pi x pandai nak modify la...minta tolong wahai otai2 programmer... Quote Share this post Link to post Share on other sites
masokis 8 Report post Posted August 31, 2010 VB apa? VB6 @ .net ? nak guna ADO @ nak pure code terus dalam VB. //masokis mahir vb6 je.. tu pun skit2 Quote Share this post Link to post Share on other sites
akuccputsedut 147 Report post Posted August 31, 2010 sekarang hang guna VB apa nih..?? nak connect ke database mana..?? soalan biaq terang skit... kalau ada code yang buat separuh jalan atau ada error boleh paste kat sini sekali... ada jer org2 sini yang sudi bantu..hihihihi... harap maklum... Quote Share this post Link to post Share on other sites
wan2c 0 Report post Posted September 2, 2010 (edited) oo...sori vb6 ..kalau boleh ADO..kalau la ada cara copy field ngan table pastu paste dlm .mdb (format 2000 & ada password) lain... nak pakai code ni pi x pandai sangat...masih blajar '************************************** ' Name: Database Table Copy ' Description:This code will copy all fields from all tables in a database and add them to another identical database. My company has Rep submitting database reports all the time. I need to append the data from the reports database to a live database. At first I was running querys I had made in the database but our file structure changed and that was no long an option. This is about as simple as it gets but someone might find it useful. ' By: Shawn Jetton ' ' Inputs:Call the function like this. AddData "C:\My Documents\Test\From.mdb", "C:\My Documents\Test\To.mdb" ' ' Side Effects:None that I know of. ' Public Sub AddData(DataFrom As String, DataTo As String) Dim dbFrom, dbTo As Database Dim rsFrom, rsTo As Recordset Set dbFrom = OpenDatabase(DataFrom) Set dbTo = OpenDatabase(DataTo) For n = 0 To dbFrom.TableDefs.Count - 1 'This search out on table in your database If dbFrom.TableDefs(n).Attributes = 0 Then Set rsFrom = dbFrom.OpenRecordset(dbFrom.TableDefs(n).Name) Set rsTo = dbTo.OpenRecordset(dbTo.TableDefs(n).Name) End If 'Loops through all fields in table and copies from dbFrom to dbTo. Do Until rsFrom.EOF rsTo.AddNew For i = 1 To rsTo.Fields.Count - 1 If rsFrom.Fields(i) = "" Then GoTo hell rsTo.Fields(i) = rsFrom.Fields(i) hell: Next i 'This updates and moves to the next record in the from database rsTo.Update rsFrom.MoveNext Loop Next n dbFrom.Close dbTo.Close End Sub bleh terangkan x?...huhu..minta tolong Edited September 2, 2010 by wan2c Quote Share this post Link to post Share on other sites