首頁猿問急求VB...

急求VB ado控件連接SQL數(shù)據(jù)庫的方法，全代碼!

SQL Server

達(dá)令說 2019-05-13 12:08:23

查看完整描述

3 回答

侃侃爾雅

TA貢獻(xiàn)1801條經(jīng)驗獲得超16個贊

直接這樣就行
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "DSN = VMS; UID =; PWD =;"
cnn1.Open "DSN=VMS"

例如用adodc控件可以這么進(jìn)行添加操作：
If chengyun.Adodc1.Recordset.EOF = False Then
MsgBox "該承運(yùn)單位已存在", 48, "警告提示"
Text1.Text = ""
Text1.SetFocus
Exit Sub
Else
chengyun.cnn1.Recordset.AddNew
chengyun.Adodc1.Recordset("承運(yùn)單位") = Text1.Text
chengyun.Adodc1.Recordset.Update
chengyun.DataGrid1.Refresh
Unload Me
End If
End If
End Sub

反對回復(fù) 2019-05-14

Helenr

TA貢獻(xiàn)1780條經(jīng)驗獲得超4個贊

Dim adodc1 As New ADODB.Recordset'(聲明變量)
Dim conns As New ADODB.Connection
conns.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=(自填);Password=(密碼自填);Initial Catalog=(你的數(shù)據(jù)庫名稱);Data Source=(數(shù)據(jù)庫地址或者計算機(jī)名稱)"

'(以上是使用SQL Server 身份驗證連接)
conns.Open
SQL1 = "select * from Userinfo(你的表名) "
adodc1.Open SQL1, conns, adOpenStatic, adLockOptimistic
Set DataGrid1(你的控件名,此處控件名是參考)).DataSource = adodc1
DataGrid1.Refresh'(刷新控件)
adodc1.MoveLast'(移動游標(biāo)到最后一行)

反對回復(fù) 2019-05-14

鴻蒙傳說

TA貢獻(xiàn)1865條經(jīng)驗獲得超7個贊

adodc1.connectionstring="Driver={SQL Server};Server=服務(wù)器IP地址;uid=數(shù)據(jù)庫用戶名;pwd=數(shù)據(jù)庫密碼;database=數(shù)據(jù)庫名稱"
adodc1.recordsource="簡單查詢SQL語句" '//注意，不能是操作查詢，操作查詢由數(shù)據(jù)集合來完成
adodc1.refresh
set mshflexgrid1.datasource=adodc1