تغيير اطلاعات يك ركورد خاص در بانك اطلاعاتي

[reza1944]

سلام خدمت اساتيد

من يك بانك اطلاعاتي با اكسس دارم

حالا مي خوام با كد نويسي اطلاعات يك ركود مشخص از يك جدول در بانك رو اصلاح و يا Update كنم چطوري با كد نويسي امكان داره ؟

لطفا كمك كنيد

[nima178]

گام يك
رفتن به منوي project > add reffrence
انتخاب adodb و OK
اينا رو توي كلاس فرم بنويس
Public cnConnection As ADODB.Connection
Dim rs As New ADODB.Recordset

حالا بهتره اين رو به صورت يك ساب بزاري


Public Sub ConnectToDataBase()
Dim com As Object
com = New ADODB.Command
Dim dbPath As String
dbPath = "c:\Nima_Gh.mdb"
cnConnection = New ADODB.Connection
cnConnection = New ADODB.Connection
With cnConnection
.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data source ='" & dbPath & "'")
End With

End Sub

حالا اينو مثلا بزار تو فرم لود

Dim intTotalRow As Integer
Dim strSql As String
Call ConnectToDataBase()
strSql = "SELECT * FROM tblstaff order by id"
rs.Open(strSql, cnConnection, 3, 3)
intTotalRow = rs.RecordCount
txtID.Text = rs.Fields("ID").Value
txtFirstname.Text = rs.Fields("firstname").Value
txtLastname.Text = rs.Fields("lastname").Value
txtAccountnumber.Text = rs.Fields("accountnumber").Value
txtSalary.Text = rs.Fields("salary").Value
BindingNavigatorCountItem.Text = intTotalRow
rs.Close()
به نظرم واضح گفتم

[nima178]

راستي اصلاحش اينجوريه!

strSql = "SELECT * FROM tblstaff where id=" & CInt(txtID.Text)
rs.Open(strSql, cnConnection, 3, 3)
rs.Fields("id").Value = CInt(txtID.Text)
rs.Fields("firstname").Value = txtFirstname.Text
rs.Fields("lastname").Value = txtLastname.Text
rs.Fields("accountnumber").Value = txtAccountnumber.Text
rs.Fields("salary").Value = CLng(txtSalary.Text)
rs.Update()
اون اپ ديت اخر حياتيه

[reza1944]

اون rs چيه

[nima178]

rs ركورد سته
من خودم تازه همين امروز تو وي دات نت اينو نوشتم
قبلا با وي بي 6 نوشته بودمش
برا همين با ركورد ست حال مي كنم