首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

新手学VB,关于数据库的有关问题,求指教

2012-02-12 
新手学VB,关于数据库的问题,求指教我用SQL SERVER创建了一个数据库,不知道怎么用VB连接上,请高手指点~[解

新手学VB,关于数据库的问题,求指教
我用SQL SERVER创建了一个数据库,不知道怎么用VB连接上,请高手指点~

[解决办法]
PROVIDER=SQLOLEDB.1;DATA SOURCE="数据库实例名";INITIAL CATALOG="数据库的名字";USER ID="用户名";PASSWORD="密码";
[解决办法]
objADOConn.Open "PROVIDER=SQLOLEDB.1;DATA SOURCE="数据库实例名";INITIAL CATALOG="数据库的名字";USER ID="用户名";PASSWORD="密码";"
objADORs.Open strSQL, objADOConn, adOpenStatic, adLockOptimistic, adCmdText
[解决办法]

VB code
'1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects' 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件,这是在连接数据前所'必做的工作。'2、接下来定义ADO的连接对象,如下所示:Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.ConnectionString = "Driver={sql server};server=JSZX3-1;uid=sa;pwd=;database=wzc"conn.ConnectionTimeout = 30conn.Openrs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdTextIf rs.EOF = True And rs.BOF Thenm = MsgBox("请重新登录", vbExclamation)Text1.Text = ""Text1.SetFocusElseForm1.HideEnd Ifrs.Close 

热点排行