希望哪位大虾能够给我一个最最简单的VB+SQL SERVER的程序。

[冰山来客123499]

我希望可以是一台客户机能够访问服务器的程序，谢谢了！

[自由之眼]

一个连接数据库类的例子，直接调用就可以。
Option Explicit

Public conn As ADODB.Connection '声明一个ADO数据连接声明
Public rscom As ADODB.Command '声明一个存储过程命令
Public rs As ADODB.Recordset '声明一个结果集
'保持属性值的局部变量
Private mvarC_PName As String '局部复制
Public Property Let C_PName(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.C_PName = 5
mvarC_PName = vData
End Property


Public Property Get C_PName() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.C_PName
C_PName = mvarC_PName
End Property




Public Function C_LianJie() As Boolean
On Error GoTo ine
If conn Is Nothing Then '如果conn没有初始化
Set conn = New ADODB.Connection
With conn
.Provider = "SQLOLEDB" '设置成OLEDB连接
.CommandTimeout = 10
.ConnectionTimeout = 10
.IsolationLevel = adXactReadCommitted
End With
End If
If conn.State = adStateClosed Then '如果连接关闭。重新建立连接
conn.Open "server=shiqiang;database=搅拌站;", "sa", ""
'MsgBox "连接成功", , "提示信息"
End If
GoTo inerr
ine:
MsgBox Err.Description, , "错误信息"
inerr:
End Function