mod1.bas

采购管理系统使用vb6.0 加sql2000数据库 编程

Attribute VB_Name = "Mod1"
Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Recordset
Public Sub main()
'adoCon.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=cggl;datasource =服务器"
'adoCon.Open "Provider=SQLOLEDB.1;Persist Security Info=TRUE;User ID=sa;PWD=;Initial Catalog=cggl;Data Source=服务器"

'adoCon.Open "provider=SQLOLEDB.1;Password=;Persist   Security   Info=True;User   ID=sa;Initial   Catalog=data_cggl;Data   Source=服务器"
 adoCon.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Data_cggl;Data Source=服务器"

End Sub