sunting akses teble dari VB6 dalam run time?

[kas1]

hai
i perlu mengedit MS mengakses data dari VB6.Lets say i have meja di nama akses 'table1'. Dan memiliki beberapa data.i perlu untuk memasukkan lebih banyak data ke tabel dari VB.ada kotak teks pada vb untuk menambahkan data yang disebut name.txt.im menggunakan ADODC bisa siapa saja please help me.jika u bisa kirimkan saya sebuah contoh kode.

 

[GSM Man]

Gunakan 'Addnew' metode recordset.Anda dapat memperoleh rincian dan contoh kode dari situs web Microsoft.

 

[Aya2002]

aku juga

 

[GSM Man]

Dari msdn.Microsoft.com - ada banyak contoh di sana!Quote:'BeginAddNewVB"Untuk mengintegrasikan kode ini

'mengganti sumber data dan nilai-nilai katalog awal

'dalam connection stringPublic Sub Main ()

On Error GoTo ErrorHandler'recordset dan variabel koneksi

Dim Cnxn As ADODB.Connection

Dim rstEmployees As ADODB.Recordset

Dim strCnxn As String

Dim strSQL As String

'catatan variabel

Dim strID As String

Dim strFirstName As String

Dim strLastName As String

BlnRecordAdded As Boolean Dim'Buka koneksi

Set Cnxn = New ADODB.Connection

strCnxn = "Provider = 'sqloledb'; Data Source = 'MySqlServer';" & _

"Initial Catalog = 'Northwind'; Integrated Security = 'SSPI';"

Cnxn.Open strCnxn'Buka Karyawan Tabel dengan kursor yang memungkinkan pembaruan

Set rstEmployees = New ADODB.Recordset

strSQL = "Karyawan"

rstEmployees.Open strSQL, strCnxn, adOpenKeyset, adLockOptimistic, adCmdTable'Ambil data dari pengguna

strFirstName = Trim (InputBox ( "Masukkan nama:"))

strLastName = Trim (InputBox ( "Masukkan nama:"))'Lanjutkan hanya jika user memasukkan sesuatu

'Untuk kedua pertama dan nama terakhir

Jika strFirstName <> "" Dan strLastName <> "" Kalau begiturstEmployees.AddNew

rstEmployees! firstname = strFirstName

rstEmployees! Nama_depan = strLastName

rstEmployees.Update

blnRecordAdded = True'Tampilkan data yang baru ditambahkan

MsgBox "New catatan:" & rstEmployees! EmployeeId & "" & _

rstEmployees! firstname & "" & rstEmployees! Nama_depanLain

MsgBox "Silakan masukkan nama pertama dan nama belakang."

End If'Hapus catatan baru karena ini adalah sebuah demonstrasi

Cnxn.Execute "DELETE FROM WHERE Karyawan EmployeeID = '" & strID & "'"'Membersihkan

rstEmployees.Close

Cnxn.Close

Set rstEmployees = Nothing

Set Cnxn = Nothing

Exit SubErrorHandler:

'Membersihkan

Jika Tidak rstEmployees Apakah ada Lalu

Jika rstEmployees.State = adStateOpen Kemudian rstEmployees.Close

End If

Set rstEmployees = NothingJika Tidak Cnxn Apakah ada Lalu

Jika Cnxn.State = adStateOpen Kemudian Cnxn.Close

End If

Set Cnxn = NothingJika Err <> 0 Then

MsgBox "-->" & Err.Source & Err.Description,, "Error"

End If

End Sub

'EndAddNewVB

 

[Aya2002]

terima kasih GSM Man