连接到数据库的VB6
连接到数据库的VB6
提问于 2014-01-29 00:30:27
好吧，我想做的事情听起来很简单。我想加载一个表单，并在表单加载时调用一个返回1项的sql语句，并将其放入TextBox1。这是我到目前为止所拥有的。
Private Sub Form_Load()
Call openTheDatabase
End Sub
Public Function openTheDatabase() As Boolean
'-- Here we want to open the database
Dim sConnectionString As String
Dim strSQLStmt As String
'-- Build the connection string
sConnectionString = "PROVIDER = MSDASQL;driver={SQL Server};database=databasename ;server=servername;uid=;pwd=;"
strSQLStmt = "SELECT chvDealerName " & _
"From dbo.tblDealers Where chrVSCAcctNum = '90442001'"
TextBox1.Text = strSQLStmt
End Function编辑
好的，它是Text1.Text，但现在我只获取textbox中的字符串，而不是实际的数据库条目
回答 1
Stack Overflow用户
回答已采纳
发布于 2014-01-29 00:59:08
您可以在此处看到设置ADODB连接的一个可靠示例：http://www.timesheetsmts.com/adotutorial.htm
在进行任何操作之前，您的项目都需要引用ADODB库。为此，请执行以下操作：
- 打开项目
- 单击顶部的项目菜单，然后单击下拉菜单中的引用
- 检查"Microsoft ActiveX Data Objects 2.x Library“(其中x是您看到的最大数字-在我的Windows XP专业版SP2框中，它是2.7"
您的项目示例：
Private Sub Form_Load()
Call openTheDatabase
End Sub
Public Function openTheDatabase() As Boolean
'-- Here we want to open the database
Dim sConnectionString As String
Dim strSQLStmt As String
'-- Build the connection string
sConnectionString = "PROVIDER = MSDASQL;driver={SQL Server};database=databasename ;server=servername;uid=;pwd=;"
strSQLStmt = "SELECT chvDealerName " & _
"From dbo.tblDealers Where chrVSCAcctNum = '90442001'"
'DB WORK
Dim db As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim result As String
db.ConnectionString = sConnectionString
db.Open 'open connection
With cmd
.ActiveConnection = db
.CommandText = strSQLStmt
.CommandType = adCmdText
End With
With rs
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open cmd
End With
If rs.EOF = False Then
rs.MoveFirst
Let result = rs.Fields(0)
End If
'close conns
rs.Close
db.Close
Set db = Nothing
Set cmd = Nothing
Set rs = Nothing
'set local box
' TextBox1.Text = strSQLStmt
TextBox1.Text = result
End Function页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/21411315
复制相关文章
相似问题
腾讯云开发者
