dim cn as new connection dim rs as new recordset ‘在窗体中 With cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "data source=(access 的路径如c:\window\fd.mdb)" .Open End With rs.Open "select * from 职员 ", cn, adOpenDynamic, adLockOptimistic'name 指的是数据库标题text1.text=rs("name") End Sub'以上代码有可能粗心写错,先史实
dim rs as new recordset
‘在窗体中
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "data source=(access 的路径如c:\window\fd.mdb)"
.Open
End With
rs.Open "select * from 职员 ", cn, adOpenDynamic, adLockOptimistic'name 指的是数据库标题text1.text=rs("name")
End Sub'以上代码有可能粗心写错,先史实