VB 连接 SQL SERVER

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
连接数据库的方法很多很多,只要各位去勇敢的偿试一下,就可以感觉数据库的方法并不是很难,本人以前也很想做这方法的工作,只是学识不深,未能完成胸中大志,如今对这些方法的多少有一些了解,特意为那些初学者以供学习之用。 
  • 1
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
为了连接VBSQL Server数据库,你需要完成以下步骤: 1. 创建一个新项目 在Visual Basic中,创建一个新项目。选择“Windows桌面”或“Windows窗体应用程序”等。 2. 添加一个数据源 在新项目中,你必须添加一个数据源来建立与数据库连接。右键单击项目,然后选择“添加”->“新项目”。选择“数据”,然后选择“数据源”并创建新的数据源。 3. 选择SQL Server数据库 在数据源向导中,选择SQL Server并给出数据库服务器的相关详细信息。这将包括服务器名称、身份验证方式和数据库名称。 4. 取得连接字符串 完成配置之后,你需要获取连接字符串。在“解决方案资源管理器”中,右键单击新添加的数据源并选择“属性”以获取连接字符串。 5. 编写代码连接数据库 现在你已经有了连接字符串,可以编写连接代码。创建一个新的VB文件并编写以下代码: Dim conn As New SqlConnection("<your connection string>") conn.Open() '执行SQL查询代码 conn.Close() 这段代码将打开连接并获取一个连接对象。你可以使用这个连接来执行任何SQL查询。 6. 执行SQL代码 使用连接对象执行SQL查询: Dim cmd As New SqlCommand("SELECT * FROM MyTable", conn) Dim reader As SqlDataReader = cmd.ExecuteReader() 这将执行一个和打开的连接关联的查询,返回数据读取器。通过调用reader.Read(),你可以逐条读取结果。 7. 关闭连接 在使用完连接后,确保关闭连接: conn.Close() 这样,你就成功连接VBSQL Server数据库了。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值