郑州国税局车辆购置税:VB通过ADO连接SQL数据的两种方法
来源:百度文库 编辑:偶看新闻 时间:2024/05/13 14:27:51
null减小字体 增大字体
VB使用ADO数据库可以分为有源数据库和无源数据库,即是否使用了DSN数据源,如下例:
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件,这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象,如下所示:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString = Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc
conn.ConnectionTimeout = 30
conn.Open
rs.Open select 用户名,密码 from login where 用户名=‘ & Trim(Combo1.Text) & ‘ And 密码=‘ & Trim(Text1.Text) & ‘, conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox(请重新登录, vbExclamation)
Text1.Text =
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
这是第二种方法连接数据库的方法,这一种方法是采用有源的方法与数据库连接的方法,代码如下所示:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = DSN=login;uid=sa;pwd=;
conn.ConnectionTimeout = 30
conn.Open
rs.Open select 用户名 from login, conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields(用户名).Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
连接数据库的方法很多很多,只要各位去勇敢的偿试一下,就可以感觉数据库的方法并不是很难,本人以前也很想做这方法的工作,只是学识不深,未能完成胸中大志,如今对这些方法的多少有一些了解,特意为那些初学者以供学习之用。
本文关键字: VB技术教程 VB通过ADO连接SQL数据的两种方法
VB使用ADO数据库可以分为有源数据库和无源数据库,即是否使用了DSN数据源,如下例:
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件,这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象,如下所示:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString = Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc
conn.ConnectionTimeout = 30
conn.Open
rs.Open select 用户名,密码 from login where 用户名=‘ & Trim(Combo1.Text) & ‘ And 密码=‘ & Trim(Text1.Text) & ‘, conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox(请重新登录, vbExclamation)
Text1.Text =
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
这是第二种方法连接数据库的方法,这一种方法是采用有源的方法与数据库连接的方法,代码如下所示:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = DSN=login;uid=sa;pwd=;
conn.ConnectionTimeout = 30
conn.Open
rs.Open select 用户名 from login, conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields(用户名).Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
连接数据库的方法很多很多,只要各位去勇敢的偿试一下,就可以感觉数据库的方法并不是很难,本人以前也很想做这方法的工作,只是学识不深,未能完成胸中大志,如今对这些方法的多少有一些了解,特意为那些初学者以供学习之用。
本文关键字: VB技术教程 VB通过ADO连接SQL数据的两种方法
求解VB+SQL,ADO连接,感激涕零
怎样在VB里通过ADO连接SQL Server 2000创建数据库查询功能?
vb.net 怎样连接sql,并通过按钮实现数据的删除、更新
vc++ 通过ADO连接数据库sql server 是不是有三种方法?? 那是哪三种呢????
怎样可以使在VB的ADO连接中可以连接两个在SQL的表
ODBC和ADO两种连接数据库的方法的优缺点~~
vb ado连接access
vb ado连接数据库
关于VB中ADO处理SQL语句的问题
vb以ADO无源连接方式不能连接SQL SERVER 2000数据库?
用ADO连接SQL数据库
关于在vb里,用ado修改数据的问题~~~
求vb+ado+Access代码添加数据库数据的代码
在VB中使用ADO连接SQL的表,分别用四个COMMAND对SQL中的表进行插入,查询,更新,删除的代码是什么呢?
delphi中用ado连接sql数据库的问题?
ADO进行动态数据连接
vb.net和sql是怎么连接的.还有数据交互.谁有作品
在VB.NET 2005如何进行SQL数据的连接和更新?
VB与SQL网络数据的问题
公司的SQL的数据(通过路由上网),在家编一个VB程序读取(公司内可以,有源码),要怎办?
在VB中用ADO控件连接数据库
ADO与VB连接查询代码
关于VB连接SQL数据库的问题
VB连接SQL数据库的问题