求vb用ADO对象连接数据库的程序，重谢？

求vb用ADO对象连接数据库的程序，重谢？

Dim cnn As New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &"\blsys.mdb;Persist Security Info=False"
cnn.CursorLocation = adUseClient
cnn.Open
要利用ADO实现对数据库的操作，首先声明一个Connection对象cnn用于打开数据库blsys.mdb的连接。其中Provider是连接的类型，Data Source是连接的位置

strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=kaoqing;Data Source=JANSON" 不知上句的字符串内容是否正确。sql数据库的连接代码我没有，给ACCESS数据库的连接代码供参考： strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hxrkgl.mdb;Persist Security Info=False" 你的其它代码经调试未发现问题，正确运用了ADODB数据对象。但从你的叙述中看，你另外使用了ADODC数据控件，是否是该功件的属性设置有问题。 补充： 1)ADODC数据控件作连接字符串正确后，如未指定数据表，运行会报错，你可删除该控件，运行你的代码不会有问题。 如果你是新建数据工程，VB会自行加载ADO数据对象。如果你是新建EXE工程，则应由工程菜单选引用选项，在其窗口选MICROSOFT ACTIVEX DATA OBJECTS 2.0 LIBRARY加钩即可。不过建议按新建数据工程简单。 2)我用以下代码调试你的主要代码，仅按新建EXE工程，则应由工程菜单选引用选项，在其窗口选MICROSOFT ACTIVEX DATA OBJECTS 2.0 LIBRARY加钩，并添加DATAGRID部件，无问题，在VB6调试： Private Sub Form_Load() Dim strConn As String Dim pubConn As New ADODB.Connection Dim rsTable As New ADODB.Recordset Dim strSQL As String 'strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=kaoqing;Data Source=JANSON" strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hxrkgl.mdb;Persist Security Info=False" pubConn.Open strConn rsTable.CursorLocation = adUseClient strSQL = "select * from mdlk_sj" 'strSQL = "select * from attdcardrec" rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rsTable End Sub

首先,我们需要引用ado.具体的方法是,在"工程" → "引用" 中,找到"microsoft activex data object 2.8 library" ，勾选后点确定 以下是登录按钮代码（数据库名称为a，即access文件名为a.mdb） private sub command1_click() if text1 = "" then msgbox "请输入账号！" text1.setfocus else dim conn as new adodb.connection dim rs as new adodb.recordset conn.open "provider=microsoft.jet.oledb.4.0;data source= " & app.path & "\a.mdb" rs.open "select * from login ", conn, 2, 2 rs.movefirst rs.find "user= '" & trim(text1.text) & "' " if rs.eof then msgbox "用户名不存在,请重新输入！", vbokonly+vbcritical, "错误!" text1.setfocus else if text2 = "" then msgbox "请输入密码！", vbexclamation, "提示!" text2.setfocus else if rs.fields("password") = text2 then msgbox "登录成功！", vbexclamation, "提示!" else msgbox "密码不正确,请重输入！",vbcritical, "错误!" end if end if end if end if end sub

1． 定义连接对象 Global DBconnect As New ADODB.Connection 2． 执行连接语句 If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close 连接ODBC DBconnect.ConnectionString =

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息