vbsqlserver
FileDSN為用ODBC建的DSN文件,我的電腦--控制面板--ODBC
AHCXSBOOK是sql server的資料庫名。
FileDSN=AHCXSBOOK.dsn表示FileDSN的文件為AHCXSBOOK.dsn
AHCXSBOOK.dsn這個文件需要添加,用ODBC添加
如果不行的話，可以試試下面這行代碼：
ConnectString = "driver={SQL Server};SERVER=.;DATABASE=master;uid=;pwd="
master改成你的資料庫名稱，如果資料庫有密碼的話改一下uid和pwd
㈡ VB 連接 SQLSERVER ,帶實例和埠，連接串怎麼寫
Provider=SQLOLEDB.1;Data Source=192.168.1.2\SQL001,1435;Initial Catalog=;User ID=sa;Password=123
㈢ 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：怎樣在取得SQLserver返回的執行結果不是記錄集，而是執行結果的報告。
可以，用Adodc控制項執行SQL指令，錯誤時會出現提示。只不過你弄錯了一點：VB執行SQL命令並不是提交給SQL查詢分析器執行的，而是提交給微軟資料庫引擎Microsoft JET (Joint Engineering Technologe) ，即使電腦沒裝SQL客戶端，有了資料庫引擎也可以進行資料庫操作。所以VB出現的錯誤提示和查詢分析器不一樣，沒有它那麼詳細。
㈤ VB如何遠程備份sqlserver資料庫到本地機中
(2)遠程共享某個目錄 (3)將遠程數據備份文件拷貝到本地機中 (4)清除遠程共享的目錄 這里主要用到的是sqlserver中內部的函 1.清除老的c:/temp2的文件，並新建c:/temp2'文件 cnn0.Execute exec master..xp_cmdshell 'rd c:/temp2' cnn0.Execute exec master..xp_cmdshell 'md c:/temp2' 2.共享目錄: cnn0.Execute exec master..xp_cmdshell 'net share SQLDATABACK2=C:/temp2' 3.備份文件cnn0.Execute backup database & s_db_name & to disk='c:/temp2/ & Date & .dat' 4.遠程復制到指定目錄 fso.file // & serverName & /SQLDATABACK2/ & Date & .dat, Trim(Text1), True 5.清理文件。
㈥ vb 連接SQLSERVER
mdf,不能直接用，要帶上sqlserver才能用
在sqlserver附加上這個mdf就行了，
連接句不變
㈦ 怎樣在vb中引用SqlServer中的數據
首先要連接資料庫
我用的是
Call openRs("select * from 資料庫表 where 姓名='" & trim(Text1.Tex)& "'")
If Rs.EOF Then
MsgBox "用戶名錯誤！", vbInformation, "系統提示"
Rs.Close
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
㈨ 求助達人 關於VB 連接SQLSERVER以及 錯誤91
類模塊程序有錯誤，加上下面兩句就行：
Public Sub openconn()
If sqlconn Is Nothing = True Then
Set sqlconn = New ADODB.Connection
Set rs = New ADODB.Recordset '<=================
End If
If sqlconnstate <> 1 Then
sqlconn.Open sconn
End If
End Sub
Public Sub closeconn()
If sqlconn.State = 1 Then
sqlconn.Close
End If
End Sub
Public Function runselectsql(ByVal ssqlstring As String) As ADODB.Recordset
Me.openconn
rs.Open ssqlstring, sqlconn, adOpenStatic, adLockReadOnly '/*這里為出現錯誤91的地方*/
Set runselectsql = rs '<=================
End Function