module1.bas

该程序采VB6作为前端开发工具,以SQL Server 2000作为后台数据库开发平台.

Attribute VB_Name = "Module1"
Option Explicit
Public rs As ADODB.Recordset
Public db As ADODB.Connection
Public Sub lianjie()

rs.Open "select * from 酒店登记", db, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = rs
End Sub

Public Sub gonggong()
Set db = New ADODB.Connection
 Set rs = New ADODB.Recordset
db.ConnectionString = "driver={SQL Server};server=04;database=酒店管理;Persist Security Info=False;User ID=sa"

db.Open
'rs.Open "select * from 增删房间", db, adOpenStatic, adLockReadOnly
End Sub
Public Sub zengjia()
rs.Open "select * from 酒店登记", db, adOpenStatic, adLockReadOnly
End Sub