m_vb1386
شنبه 15 تیر 1387, 10:05 صبح
Private Sub Command1_Click()
Dim ch2 As String
ch2 = App.Path & "\kol.mdb"
Form1.Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"persist security info=false;" & _
"data source=" & ch2
Form1.Adodc1.RecordSource = "Select * from tbl_asli where name= '" & Text1.Text & "'"
Set Form1.DataGrid1.DataSource = Adodc1
Form1.Adodc1.Refresh
Adodc1.Recordset.Fields("tel") = Text2
Adodc1.Recordset.Fields("mob") = Text3
End Sub
من این کد رو نوشتم که در صورت پیدا کردن نامی که درتکست1 نوشتم مقدار تلفن و موبایل که به ترتیب در تکست2و3 نوشتم رو تو قرار میده ولی اگه پیدا نشد ارور میده چجوری اون کد رو برای این قسمت هم اصلاح کنم
Dim ch2 As String
ch2 = App.Path & "\kol.mdb"
Form1.Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"persist security info=false;" & _
"data source=" & ch2
Form1.Adodc1.RecordSource = "Select * from tbl_asli where name= '" & Text1.Text & "'"
Set Form1.DataGrid1.DataSource = Adodc1
Form1.Adodc1.Refresh
Adodc1.Recordset.Fields("tel") = Text2
Adodc1.Recordset.Fields("mob") = Text3
End Sub
من این کد رو نوشتم که در صورت پیدا کردن نامی که درتکست1 نوشتم مقدار تلفن و موبایل که به ترتیب در تکست2و3 نوشتم رو تو قرار میده ولی اگه پیدا نشد ارور میده چجوری اون کد رو برای این قسمت هم اصلاح کنم