dim DataBasePath as string databasePath="\\yourServer\数据\aa.mdb" Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & GridDBName & ";Persist Security Info=False" strSQl = "select * from 表名 " AdoRs.Open strSQl, Conn, adOpenKeyset, adLockReadOnly这样就可以访问了
那就用sql sever 做数据库!
dim objNetConn As New ADODB.Connection Dim connectstring As String objNetConn.ConnectionString = "Driver={SQL Server};Database=数据库名;Server=服务器名称或是IP地址;uid=数据表用户(在服务器端的数据表下建立);pwd=数据表用户密码;" Me.MousePointer = vbHourglass DoEvents Me.Caption = "正在连接数据库"
databasePath="\\yourServer\数据\aa.mdb" Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & GridDBName & ";Persist Security Info=False"
strSQl = "select * from 表名 "
AdoRs.Open strSQl, Conn, adOpenKeyset, adLockReadOnly这样就可以访问了
Dim connectstring As String
objNetConn.ConnectionString = "Driver={SQL Server};Database=数据库名;Server=服务器名称或是IP地址;uid=数据表用户(在服务器端的数据表下建立);pwd=数据表用户密码;"
Me.MousePointer = vbHourglass
DoEvents
Me.Caption = "正在连接数据库"
objNetConn.ConnectionString = connectstring
objNetConn.ConnectionTimeout = 10
objNetConn.Open
是不是调用数据库是基本上都是这样呢?
说的不对还请指点