老鸟同志们来帮帮我吧~~

[imwinner]

小弟新学VB,有个设计要用VB连接SQL Server数据库,哪位老鸟同志能给我个示例程序吗?

[tztz520]

'首先引用"Microsoft ActiveX Data Objects 2.0 Library"

Dim gDBConnect As New ADODB.Connection

Private Sub Command1_Click()
Dim xx As String
Dim prs As New ADODB.Recordset

gDBConnect.CommandTimeout = 10
DoEvents
xx = "Provider=sqloledb;Data Source=192.168.1.111;Initial Catalog=" & "csdb" & ";User Id=sa"

gDBConnect.ConnectionString = xx
DoEvents
gDBConnect.Open

End Sub

[NistCK]

dim cnn as new ADODB.Connection
dim rs as Adodb.recordset
dim s as string,i as long

cnn.CursorLocation = 3 '
cnn.CommandTimeout = 30
cnn.Open "Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=sa;Initial Catalog=tempdb;Persist Security Info=True"

set rs = nothing
set rs = cnn.execute("select * from sysobjects")
while not rs.eof
for i = 0 to rs.fields.count - 1
s = s & rs(i) & vbtab
next
s = s & vbcrlf
rs.movenext
wend
msgbox s