vb sql server

来源：百度知道 编辑：UC知道 时间：2024/06/29 22:46:31
我的电脑上装了VB和SQL server2000,我在企业管理器中新建了一数据库MyDatabase,并在数据库中新建了一数据表Carry out a standard ,我想在VB中写程序读取数据库当中的那张表，我不知道怎么写，请各位帮帮忙！谢谢！急！急！

连接模块：
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public cmd As New ADODB.Command
Public ssql As String
Public Sub Connect()
Dim strConnect As String
Dim server
Dim user
Dim password
server = "服务器名"
user = "sa"
password = "密码"
cn.ConnectionTimeout = 30
strConnect = "driver={SQL Server};server=" + Trim(server) + ";uid=" + Trim(user) + ";pwd=" + Trim(password) + ";database=库名"
cn.Open strConnect

End Sub

连接查询代码：
If cn.State = adStateClosed Then
Connect
End If
ssql = "select * from [表名] " ’查询所有记录从[表名]
If rs.State = adStateOpen Then
rs.Close
End If
rs.Open ssql, cn, adOpenKeyset, adLockOptimistic

模块中应写
Public gCN As New Connection '数据库连接
Public gstrUserID