VB訪問sqlserver
❶ VB 如何使用ADODB控制項鏈接sqlServer資料庫
1、有向導可用，你在屏幕左側看跟工具箱挨著的有個數據源管理，這里點新數據源，就可以向導連接。
2、那個Microsoft ActiveX Data Object縮寫簡稱ADO，很好找，是有的，有空q我，給你發截圖看。
3、數據綁定沒有向導，也不需要，簡單的設置一個datasource屬性即可，不需要復雜的向導。
4、不是用ADO控制項，而是用ADO.net程序集，要連接到 Microsoft SQL Server 7.0 或更高版本，請使用 SQL Server .NET Framework 數據提供程序的 SqlConnection 對象。 要連接到 OLE DB 數據源，或連接到 Microsoft SQL Server 6.x 或更低版本，請使用 OLE DB .NET Framework 數據提供程序的 OleDbConnection 對象。
5、應該是Adodc1.ConnectionString="xxxxxxxxx" 引號中為連接字元串，具體的語法建議你按F1看MSDN的幫助，很詳細。
6、還有問題可以共同探討，qq369220969
❷ vb怎麼連接sql
在窗體上添加adodc控制項
滑鼠右鍵-adodc屬性-在通用選項卡里，點生成，選for
SQL
Server驅動程序-下一步-連接選項卡里
1.輸入伺服器名稱，2.使用Windows
NT
集成安全設置。3.選擇一個資料庫
點測試連接，看看是否成功。按確定
點記錄源選項卡，命令類型選8，命令文本（SQL）寫：select
*
from
table1
確定，就連接到SQL資料庫的表table1了。
Private
Sub
Command1_Click()
If
Not
Adodc1.Recordset.EOF
Then
Text1.Text
=
Adodc1.Recordset.Fields("line1")
End
If
End
Sub
❸ vb連接資料庫sqlserver的問題
其實不難的，既然你已經會用DATAGRID ADODC1綁定數據，下一不就好辦了。
1、首先添加，判斷是否重復出現(免掉)， adodc1.addnew
adodc1.rcoutset.fileds(0)="插入的數據"
.........
adodc1.update
exit sub
adodc1.rcoutset.recourtsource="recourtsource屬性裡面的語句"
adodc1.refresh
2.刪除語句：
dim st,sql as
string
adodc1.rcoutset.recourtsource="recourtsource屬性裡面的語句"
st=adodc1.recoutset.fileds(0).value
sql="recourtsource屬性裡面的語句 where **='"st"'"
adodc1.delete
3.更新語句:
adodc1.rcoutset.fileds(0)="更新過的數據"
.........
adodc1.update
exit sub
adodc1.rcoutset.recourtsource="recourtsource屬性裡面的語句"
adodc1.refresh 『那些數據來源可以是文本框等，你要自己想了，其實不難的。
4、假如都有判斷是否唯一語句（避免插入刪除異常時），
adodc1.rcoutset.recourtsource="recourtsource屬性裡面的語句 where 條件"
if adodc1.rcoutset.eof=false then
msgbox"出錯"
exit sub
end if '這個條件插在他們的前面就可以判斷了。
❹ vb6.0獲取sqlserver存儲過程的返回值
Dim Cnn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Cnn_c As New ADODB.Command
Dim cnn_p As ADODB.Parameter
Cnn.ConnectionString = ConnStr'連接字元串
With Cnn
'.Provider = "MSDASQL"
.CursorLocation = adUseClient
.Open
End With
Set Cnn_c.ActiveConnection = Cnn
With Cnn_c
.CommandType = adCmdStoredProc
.CommandText = "存儲過程名"
End With
Set cnn_p = Cnn_c.CreateParameter("ReTurn", adInteger, adParamReturnValue)
Cnn_c.Parameters.Append cnn_p
『這里添加其他參數
Set Rs = Cnn_c.Execute'執行
'Cnn_c.Parameters("ReTurn")這就是返回值
Rs.close
Cnn.Close
Set cnn_p = Nothing
Set Cnn_c = Nothing
Set Rs = Nothing
Set Cnn = Nothing