آموزش کنترل Ado در Vb6

[ahebba]

ساخت یک بانک اطلاعاتی در access به نام database که دارای یک جدول با فیلدهای name , family باشد و گذاشتن یک دکمه به نام cmdadd و دو text به نام txtname , txtfamily در محیط vb حال می خواهیم با نوشتن نام و نام خانوادگی در 2 text فوق و زدن دکمه cmdadd اطلاعا درون بانک ذخیره شود
dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
FileDataBase = App.Path & "\dataBase.mdb

cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;data source=" & FileDataBase
rst.Open "Select * From student", Cnc, 1, 3

rst.AddNew
rst!name=txtname
rst!family=txtfamily
rst.Udate

rst.close
cnn.close

[ahebba]

ساخت یک بانک اطلاعاتی در access به نام database که دارای یک جدول به نام student با فیلدهای name , family باشد و گذاشتن یک دکمه به نام cmdadd و دو text به نام txtname , txtfamily در محیط vb حال می خواهیم با نوشتن نام و نام خانوادگی در 2 text فوق و زدن دکمه cmdadd اطلاعا درون بانک ذخیره شود
dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
FileDataBase = App.Path & "\dataBase.mdb
cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;data source=" & FileDataBase
rst.Open "Select * From student", Cnc, 1, 3
rst.AddNew
rst!name=txtname
rst!family=txtfamily
rst.Udate
rst.close
cnn.close