ado是最新的,DAO灵活.建议用ado. ado控件是系统集成的控件,可以让用户不用一名代码实现部分数据库操作.直接用ado编程是引用ado数据模型,自己建立数据对象,这样很灵活,可以完成很多ado控件不能完成的操作,议用ado对象来操作数据库. '//先引用ado2.5Dim cnn1 As New ADODB.Connection Dim myrs As New ADODB.Recordset dim sql as string'/////////保存 cnn1.open myrs2.Open "select * from 操作员档案", cnn1, adOpenStatic, adLockPessimistic With myrs2 .AddNew .Fields("姓名") = Trim(Text1.Text) .Fields("密码") = Trim(Text2.Text) .Fields("权限") = Trim(Text4.Text) .Update End With cnn1.Close '//////////查询 sql="select * from 操作员档案 where 姓名="+"'"+text1.text+"'" cnn1.open set myrs=cnn1.exectue(sql) if myrs.eof then msgbox"没有一条符合条件的记录",vbokonly,"消息" cnn1.close exit sub end if text1.text=myrs.fields("姓名") .... .... cnn1.close
ado控件是系统集成的控件,可以让用户不用一名代码实现部分数据库操作.直接用ado编程是引用ado数据模型,自己建立数据对象,这样很灵活,可以完成很多ado控件不能完成的操作,议用ado对象来操作数据库.
'//先引用ado2.5Dim cnn1 As New ADODB.Connection
Dim myrs As New ADODB.Recordset
dim sql as string'/////////保存
cnn1.open
myrs2.Open "select * from 操作员档案", cnn1, adOpenStatic, adLockPessimistic
With myrs2
.AddNew
.Fields("姓名") = Trim(Text1.Text)
.Fields("密码") = Trim(Text2.Text)
.Fields("权限") = Trim(Text4.Text)
.Update
End With
cnn1.Close
'//////////查询
sql="select * from 操作员档案 where 姓名="+"'"+text1.text+"'"
cnn1.open
set myrs=cnn1.exectue(sql)
if myrs.eof then
msgbox"没有一条符合条件的记录",vbokonly,"消息"
cnn1.close
exit sub
end if
text1.text=myrs.fields("姓名")
....
....
cnn1.close