16,554
社区成员
发帖
与我相关
我的任务
分享
Dim Mcon As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=abDataSet.mdb;Persist Security Info=False")
Mcon.Open()
Dim MdataAdapter As New OleDbDataAdapter("select jd,jg from A where ID='" & CStr(Textbox1.text) & "'", Mcon)
Dim Mdataset As New DataSet
MdataAdapter.Fill(Mdataset, "A")
DataGridView1.DataSource = Mdataset.Tables(0)