ارتباط با دیتا بیس؟؟؟؟؟؟؟؟

[adib202]

سلام من بک کانکشن دارم که نمی دونم با چه کنترلی به دیتا بیس وصل شده


Global DBMain As Database
Global RecSet As Recordset
Public Sub Main()
'Load frmMain
frmMain.Show
End Sub
Public Sub QueryData(reqText As String)
Dim SQLText As String
SQLText = "SELECT *"
SQLText = SQLText + " FROM Words"
SQLText = SQLText + " WHERE English LIKE '" & reqText & "*';" '''' & "*';"
SQLText = SQLText + " FROM ACTIVE"
SQLText = SQLText + " WHERE NAME LIKE '" & reqText & "*';" '''' & "*';"
'And Create a Recordset object with this SQLText
Set RecSet = DBMain.OpenRecordset(SQLText)
'Clear the list box
frmMain.lstWords.Clear
If RecSet.RecordCount = 0 Then
frmMain.txtExp(0).Text = " not found!"
Exit Sub
End If
RecSet.MoveLast: RecSet.MoveFirst
'fill the list box
Do Until RecSet.EOF
frmMain.lstWords.AddItem RecSet.Fields(1)
RecSet.MoveNext
Loop

If Not frmMain.lstWords.ListCount = 0 Then
RecSet.MoveFirst
frmMain.txtExp(0).Text = RecSet.Fields(2)
Else
frmMain.txtExp(0).Text = ""
End If
End Sub


می خواستم با ببینم چطور میشه با وارد کردن اطلاعات توی یه تکس باکس این اطلاعات در دیتا بیس ذخیره بشه.
خودم این کد رو نوشتم ولی کار نمی کنه .می خواستم یکی راهنمایی کنه


Private Sub Command1_Click()
DBMain.RecordSource = "SELECT * FROM Active WHERE Name=" & Active_ID
DBMain.Refresh
DBMain.RecSet.Fields("Name") = Trim(Text1)
DBMain.RecSet.Update
End Sub

[HjSoft]

من كد شما اصلا نديدم و فقط كد اضافه كردن رو ديدم ، كه شما بايد يك عبارت addnew قبل از وارد كردن اطلاعات بدين يعني :
dbmain.recset.addnew
DBMain.RecSet.Fields("Name") = Trim(Text1)
DBMain.RecSet.Update