如何用代码实现和sql server 数据库的连接？

Question

本人刚刚学习bv6请问如何实现和数据库的连接，用代码？
谢谢！

Answer 1

搜索一下以前的帖子或查看VB版的FAQ

Answer 2

Public Sub DBOpen()
    cn.ConnectionTimeout = 25
    cn.Provider = "sqloledb"
    cn.Properties("Data Source").Value = sServerName
    cn.Properties("Initial Catalog").Value = sDatabaseName
    cn.Properties("User ID").Value = sUserName
    cn.Properties("Password").Value = sPassword
    Screen.MousePointer = vbHourglass
    cn.Open
    Screen.MousePointer = vbDefault
End Sub
分别指定sql服务器名称，数据库名称，用户名称，密码即可

Answer 3

http://expert.csdn.net/Expert/topic/1574/1574903.xml?temp=.3856012

Answer 4

Dim Cn As New ADODB.ConnectionCn.Open "Driver={SQL Server};Server=机器名;Uid=sa;pwd=sa"

Answer 5

Dim Cn As New ADODB.ConnectionCn.Open "Driver={SQL Server};Server=机器名;Uid=sa;pwd=sa;database=master"

Answer 6

在窗体放三个文本框！一个确定按钮和一个取消按钮！确定按钮代码如下:
Private Sub Command1_Click()
On Error Resume Next
   Dim DBC As New DataBaseConnection
   If db.State = 1 Then      
      db.Close
   End If
   db.ConnectionString = DBC.SqlConnectString(Text1.Text, Text2.Text, Text3.Text)
   rs.CursorType = adOpenDynamic
   rs.CursorLocation = adUseClient
   rs.LockType = adLockOptimistic
   Set cmd.ActiveConnection = db
   If Err.Number Then
      MsgBox Err.Description, 16 + vbOKOnly, Err.Number
      Exit Sub
   End If
   db.DefaultDatabase = "student1" 'student1换成你要连接的数据库名称
   rs.CursorType = adOpenDynamic
   rs.LockType = adLockOptimistic
   If Err.Number Then
      MsgBox Err.Description, 16 + vbOKOnly, Err.Number
      Exit Sub
   End If
   Form1.Show
   Unload Me
End SubPrivate Sub Command2_Click()
Unload Me
End Sub以上是连接服务器代码Public Function SqlConnectString(ServerName As String, UserName As String, password As String) As String
   SqlConnectString = "Provider=SQLOLEDB.1;User ID=" + UserName + ";Pwd=" + password + ";Data Source=" + ServerName
End Function这是类模块DataBaseConnection代码有问题发消息给我！