m_vb1386
پنج شنبه 11 مهر 1387, 10:28 صبح
برنامه رو هم البته این هم کد برنامه
Private Sub Command1_Click()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
.RecordSource = "UPDATE Table1 SET Table1.tel = '" & 88888888 & "' WHERE Table1.name='" & ali & " '; "
.Refresh
End With
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Command1_Click()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
.RecordSource = "UPDATE Table1 SET Table1.tel = '" & 88888888 & "' WHERE Table1.name='" & ali & " '; "
.Refresh
End With
Set DataGrid1.DataSource = Adodc1
End Sub