vb連接sqlserver實例
『壹』 vb連接sqlserver
在系統中建立ADO公共查詢模塊
Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.Recordset '執行SQL語句並返回Recordset對象
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open CONN
'打開連接
If InStr("INSERT,DELETE,UPDATE", _
UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & _
" 查詢成功"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, _
adOpenKeyset, _
adLockOptimistic
Set ExecuteSQL = rst
MsgString = "查詢到" & rst.RecordCount & _
" 條記錄 "
'獲取記錄的條數
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
MsgString = "查詢錯誤: " & _
Err.Description
Resume ExecuteSQL_Exit
End Function
然後再應用模塊中就可以使用
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
txtSQL = "select * from ... "
Set mrc = ExecuteSQL(txtSQL, MsgText)
查詢了
『貳』 求vb連接sql server 的例子
VB連接Sql+Server資料庫操作實例
http://download.csdn.net/detail/delicacy123/5092242
有下載
『叄』 VB 連接 SQLSERVER ,帶實例和埠，連接串怎麼寫
Provider=SQLOLEDB.1;Data Source=192.168.1.2\SQL001,1435;Initial Catalog=;User ID=sa;Password=123
『肆』 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連接資料庫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 '這個條件插在他們的前面就可以判斷了。
『陸』 VB連接sqlserver查詢。
提問題時。請保持良好的，代碼格式，這樣看的人才不會迷糊 Dim cnn As ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Label6.Caption = "今天的課程如下："
rs.Open "select 第一二節 from 課表 where 星期 ='" & Text5.Text & "'", cnn, adOpenDynamic, adLockOptimistic
Text1.Text= rs(0)
rs.Close
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=課程;Data Source=WINBLZK9FOGM2YU"
End Sub
『柒』 誰能給個VB和SQLSERVER相結合的實例具體操作也寫上，本人新手，需要一步一步的教，謝謝各位大師們
你到it論壇看看
『捌』 怎樣在vb中引用SqlServer中的數據
首先要連接資料庫
我用的是
Call openRs("select * from 資料庫表 where 姓名='" & trim(Text1.Tex)& "'")
If Rs.EOF Then
MsgBox "用戶名錯誤！", vbInformation, "系統提示"
Rs.Close
Exit Sub
End If
『玖』 vb6.0 如何連接SQLSERVER2000
俺 是一樓的。
你的E_Mail是什麼，我發給你一個我作的小程序。
今天快要下班了，你在網路里給我發消息吧。我上網就發給你。
＝－－－－－－－
發給你了。
－－－－－－－－－－－－－－－－－－－
工程－引用
Microsoft ActiveX Data Objects 2....（選一個高版本的）
Set conn = New ADODB.Connection
connStr = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123"
conn.Open connStr
Set rs = New ADODB.Recordset
sql = "select * from ask_info"
rs.Open sql, conn, 1
用法和ASP一樣的。
－－－－－－－－－－－－－－－－－－－－－－－－－
『拾』 vb 連接SQLSERVER
mdf,不能直接用，要帶上sqlserver才能用
在sqlserver附加上這個mdf就行了，
連接句不變