module1.bas

远程控制水表的系统。基于无线传输技术对水表远程进行操作

Attribute VB_Name = "Module1"
Public PublicStr As String
Private con As New ADODB.Connection
Private rs As New ADODB.Recordset
Dim str As String

Public Function cnn() As ADODB.Connection
 Set cnn = New ADODB.Connection
  cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=sbiao"
End Function

Public Sub Main()
'附加数据库
  On Error Resume Next
  con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa"
  con.Open     '打开数据库连接
  Set rs = New ADODB.Recordset
  '开始附加数据库
  str = "EXEC sp_attach_db @dbname = N'sbiao', @filename1 = N'" + App.Path + "\data\sbiao_Data.MDF" + "', @filename2 = N'" + App.Path + "\data\sbiao_Log.LDF" + "'"
'  rs.Open str, con, 1, adLockOptimistic
  Set rs = con.Execute(str)
  con.Close  '关闭数据库连接
  PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=sbiao"
  frm_login.Show
End Sub