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

Question

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

Answer 1

'首先引用"Microsoft ActiveX Data Objects 2.0 Library"Dim gDBConnect As New ADODB.ConnectionPrivate Sub Command1_Click()
Dim xx As String
Dim prs As New ADODB.RecordsetgDBConnect.CommandTimeout = 10
DoEvents
xx = "Provider=sqloledb;Data Source=192.168.1.111;Initial Catalog=" & "csdb" & ";User Id=sa"gDBConnect.ConnectionString = xx
DoEvents
gDBConnect.OpenEnd Sub

Answer 2

dim cnn as new ADODB.Connection
dim rs as Adodb.recordset
dim s as string,i as longcnn.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