客户端可以不安装sql就可以运行程序,只要把数据访问的路径设置为服务器端就可以了!判断客户是否已经安装sql,可以参考下面的例子:本例子在窗体上添加 CommandButton、ComboBox 控件,以作演示: Private Sub Command1_Click() On Error GoTo eh Dim oNameList As SQLDMO.NameList 'sql服务器名称列表对象 Dim oApp As New SQLDMO.Application 'sql服务器申请对象 Dim i As Integer Dim iCount As Integer '可使用的sql服务器数
Set oNameList = oApp.ListAvailableSQLServers
iCount = oNameList.Count '返回可使用的SQL服务器数 If iCount = 0 Then MsgBox "没有可供程序使用的SQL服务器!" Else MsgBox "共有" & iCount & "个SQL服务器可供程序使用!" End If
Combo1.Clear '在ComboBox控件显示可用的服务器名称 For i = 1 To iCount Combo1.AddItem oNameList(i) Next Combo1.ListIndex = 0
Command1_Exit: Set oNameList = Nothing Set oApp = Nothing On Error GoTo 0 Exit Sub
你可以将你的数据库改为access的。
连接字串给给应该可以!
Private Sub Command1_Click() On Error GoTo eh Dim oNameList As SQLDMO.NameList 'sql服务器名称列表对象
Dim oApp As New SQLDMO.Application 'sql服务器申请对象
Dim i As Integer
Dim iCount As Integer '可使用的sql服务器数
Set oNameList = oApp.ListAvailableSQLServers
iCount = oNameList.Count '返回可使用的SQL服务器数
If iCount = 0 Then
MsgBox "没有可供程序使用的SQL服务器!"
Else
MsgBox "共有" & iCount & "个SQL服务器可供程序使用!"
End If
Combo1.Clear '在ComboBox控件显示可用的服务器名称
For i = 1 To iCount
Combo1.AddItem oNameList(i)
Next
Combo1.ListIndex = 0
Command1_Exit:
Set oNameList = Nothing
Set oApp = Nothing
On Error GoTo 0
Exit Sub
eh:
Resume Command1_ExitEnd Sub小弟也是VB新手,如有错处,敬请各位大侠指出,谢谢!
只要把数据访问的aod连接字符串连到服务器就可以一样的访问