VB 连接数据库查询

显示全部楼层 · 2009-7-22 09:30:00

谁能帮我写一段判断代码啊，多谢了！！！！
VB2008，数据库是自带的SQL3.5
数据库是Mydata.sdfmydatadataset
绑定用bindingsourceTableAdapter
表名：CCTJ字段是 "名称"
判断查询名称textbox.text的值是否在数库中已存在，
用VB代码写，如果加ADODC连接的就不要来了
直接给分！！多谢！！！

千问 · 2009-7-22 09:30:00

在菜单Project-Reference中选中 Microsoft ActiveX DataObject 2.7 Library

Dim adoConn As ADODB.Connection
dim strConn as String

Set adoConn = New ADODB.Connection
adoConn.CursorLocation = adUseClient
strConn="Provider=SQLOLEDB.1;Data Source=TEMP;Initial Catalog=TEST;User ID=;Password="
adoConn.Open strConn

其中Data Source表示的是当前所连接的SQL服务器名称

Initial Catalog表示的当前所连接数据的名称

adoConn.CursorLocation = adUseClient表示设置游标为客户端形式，如不设置Recordset.RecordCount会始终为-1