我是用DAO方式连接数据库的:
set Db=OpenDataBase("\\hishsun\考勤数据\考勤数据库.mdb",false,false)
HighSun是局域网中服务器的名称。而且连接语句只是在Form_Load事件中执行一次,不用每次打卡都执行的。
set Db=OpenDataBase("\\hishsun\考勤数据\考勤数据库.mdb",false,false)
HighSun是局域网中服务器的名称。而且连接语句只是在Form_Load事件中执行一次,不用每次打卡都执行的。
就是db,open xxxxx那句
后面又一个可以变换的
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient ' adUseServer注意这里一个是本地的,一个是服务器用的
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb;" Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select Address,BirthDate from Employees", db, adOpenStatic, adLockOptimistic
上面的用的是ADO对数据库的操作都在服务器(或者后台机器)上进行
前台只是发送消息,取得消息(Winsock通信),这样应该就快了