module1.bas

来自「人口信息管理系统 人口信息管理 查询 修改 删除」· BAS 代码 · 共 8 行

Attribute VB_Name = "Module1"
Public Declare Function SQLDisconnect Lib "odbc32.dll" (ByVal hdbc As Long) As Integer
Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Recordset
Public Sub main()
adoCon.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=RKGL"
End Sub