db.bas

来自「主要用于学生的各方面信息的管理」· BAS 代码 · 共 13 行

Attribute VB_Name = "Module1"
Option Explicit
Public Function cnn() As String
cnn = "Provider=SQLOLEDB.1;Password=pass;Persist Security Info=True;User ID=sa;Initial Catalog=Manage_student"
End Function
Public Function getAdodc(SQL As String) As Adodc
getAdodc.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=as;Initial Catalog=CYGLXT"
getAdodc.RecordSource = SQL


End Function