VB里面怎么连数据库？

[javacici]

要求把具体语句的注释写清楚，要看得懂。
分不够，开帖再给！
小弟初学者，希望这里的大哥大姐给点帮助，不懂我就问啦！不怕笑话啦！！！！！
连接SQL2K的。

[Leekey]

。。。我就不说什么了，随便哪本VB书里面都有的！

[xiaoyen]

上面的已经好清楚了。我就接点啊。

[javacici]

我学着用VB做一个有录入和查询功能的最简单的小应用系统，那为大哥、大姐能给点代码学习一下啊？
如果有的，留个言，我再开帖给分、接代码！！！

[tztz520]

Private Sub Command1_Click()
Dim gDBConnect As New ADODB.Connection
gDBConnect.CommandTimeout = 10
gDBConnect.ConnectionString = "Provider=sqloledb;Data Source=192.168.1.1;Initial Catalog=" & "csdb" & ";User Id=sa;Password=123456"
gDBConnect.Open
End Sub

[javacici]

楼上那为好多红星闪闪滴大哥，能不能给点注释呀？

[huangjianyou]

http://www.connectionstrings.com/

^_^

[aohan]

Private Sub Command1_Click()
Dim gDBConnect As New ADODB.Connection '定义一个连接
gDBConnect.CommandTimeout = 10 '命令超时时间为10秒
gDBConnect.ConnectionString = "Provider=sqloledb;Data Source=数据库所有计算机的名称或IP;Initial Catalog=数据库名;User Id=数据库登录名;Password=数据库用户登录密码"
gDBConnect.Open '打开连接
End Sub

变量的写入"& password &" '比如密码

[lsj1982]

Private Sub Command1_Click()
Dim gDBConnect As New ADODB.Connection
gDBConnect.CommandTimeout = 10 '连接持续时间
gDBConnect.ConnectionString = "Provider=sqloledb;Data Source=192.168.1.1;Initial Catalog=" & "csdb" & ";User Id=sa;Password=123456" ‘连接字符串
gDBConnect.Open ’打开连接
End Sub

初学者多看看MSDN

[rfq]

还是看看有关的书籍。
数据库
连接方法

[Cnxiaowei]

反正这样的问题天天有人问
ADO Program
Dim Con As New ADODB.Connection
Dim Rst1 As New ADODB.Recordset
Dim Rst2 As New ADODB.Recordset
Dim Rst3 As New ADODB.Recordset
Dim Cmd As New ADODB.Command
Dim Prm1 As New ADODB.Parameter

Dim Prm2 As New ADODB.Parameter

Con.Provider = "OraOLEDB.Oracle"
Con.ConnectionString = "Data Source=MyOraDb;" & _
"User ID=scott;Password=tiger;"
Con.Open
Cmd.ActiveConnection = Con

' Although Employees.GetEmpRecords() takes four parameters, only
' two need to be bound because Ref cursor parameters are automatically
' bound by the provider.

Set Prm1 = Cmd.CreateParameter("Prm1", adSmallInt, adParamInput, , 30)
Cmd.Parameters.Append Prm1
Set Prm2 = Cmd.CreateParameter("Prm2", adSmallInt, adParamOutput)
Cmd.Parameters.Append Prm2

' Enable PLSQLRSet property
Cmd.Properties ("PLSQLRSet") = TRUE

' Stored Procedures returning resultsets must be called using the
' ODBC escape sequence for calling stored procedures.
Cmd.CommandText = "{CALL Employees.GetEmpRecords(?, ?)}"

' Get the first recordset
Set Rst1 = Cmd.Execute

' Disable PLSQLRSet property
Cmd.Properties("PLSQLRSet") = FALSE

' Get the second recordset
Set Rst2 = Rst1.NextRecordset

' Just as in a stored procedure, the REF CURSOR return value must
' not be bound in a stored function.
Prm1.Value = 7839
Prm2.Value = 0

' Enable PLSQLRSet property
Cmd.Properties("PLSQLRSet") = TRUE

' Stored Functions returning resultsets must be called using the
' ODBC escape sequence for calling stored functions.
Cmd.CommandText = "{CALL Employees.GetDept(?, ?)}"

' Get the rowset
Set Rst3 = Cmd.Execute

' Disable PLSQLRSet
Cmd.Properties ("PLSQLRSet") = FALSE

' Clean up
Rst1.Close
Rst2.Close
Rst3.Close

[AndyZhang_]

Dim Connect As New ADODB.Connection '定义一个连接
Dim res As New ADODB.recordset
Connect.CommandTimeout = 10 '命令超时时间为10秒
Connect.ConnectionString = "Provider=sqloledb;Data Source=数据库所有计算机的名称或IP;Initial Catalog=数据库名;User Id=数据库登录名;Password=数据库用户登录密码"
Connect.Open '打开连接
然后用 res 访问数据就可以了