module1.bas

VB 和 SQL相结合的。图书查询管理软件

Attribute VB_Name = "Module1"

Public conn As New ADODB.Connection ' 标记连接对象
 Public userID As String ' 标记当前用户ID
 Public userpow As String ' 标记用户权限
Public find As Boolean ' 标记查询
Public sqlfind As String ' 查询语句
Public rs_s1 As New ADODB.Recordset
Public rs_s2 As New ADODB.Recordset
  Public rs_find As New ADODB.Recordset
Public rs_find1 As New ADODB.Recordset



Public Sub s()
Dim ConnectionString  As String
ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bookmdb;Data Source=." '连接本机服务器

    conn.Open ConnectionString


End Sub