Question

VB连接SQL server 2005数据库

Option Explicit
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=J:\Program Files\Microsoft SQL Server\MSSQL10.MSSQLSERVER\MSSQL\DATA\stc.mdf;Persist Security Info=true;User ID=sa;Initial Catalog=stc"
conn.Open
rs.Open "student", conn, , adCmdTable
'rs = Execute("select * from student")
Set my.DataSource = rs
rs.Close
conn.Close
End Sub

Answer 1

conn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=J:\Program Files\Microsoft SQL Server\MSSQL10.MSSQLSERVER\MSSQL\DATA\stc.mdf;Persist Security Info=true;User ID=sa;Initial Catalog=stc"

这个是错的，应该是
Provider=SQLOLEDB.1;Data Source=这儿应该是IP或是local或是数据库服务名;Persist Security Info=true;User ID=sa;password=pwd; Initial Catalog=stc

Answer 2

Provider=SQLOLEDB;Data Source=127.0.0.1;UID=帐户;PWD=密码;initial catalog=local

SQL数据库的连接不同于MDB类数据库.
如果无法确定正确与否,可以在VB窗口中临时添加一个ADO控件,利用控件的连接设置可以得到准确的连接字符串.(这是我以前学VB的笨方法,哈)

Answer 3

Public sqlcon As System.Data.SqlClient.SqlConnection
Public sqladapter As System.Data.SqlClient.SqlDataAdapter
Public command As System.Data.SqlClient.SqlCommand
Public ds As System.Data.DataSet
Public dr As System.Data.DataTable

sqlcon = New System.Data.SqlClient.SqlConnection
sqlcon.ConnectionString = "Server=(local); Initial Catalog=test1 ; User ID="数据库sa用户"; Password="数据库密码""
ds = New System.Data.DataSet
dr = New System.Data.DataTable(" test2 ")
ds.Tables.Add(dr)
sqladapter = New System.Data.SqlClient.SqlDataAdapter("select * from test2 ", sqlcon)
sqlcon.Open()
sqladapter.Fill(dr)
sqlcon.Close()
DataGridView1.DataSource = dr