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