第一:
Cnct = "dsn=zcs;uid=sa;pwd=admin;database=zcs" QueryCn.Connect = Cnct$
QueryCn.CursorDriver = rdUseOdbc
QueryCn.EstablishConnection rdDriverNoPrompt, False
QueryCn.QueryTimeout = 60
第二:
Sql = "select max(zcs_no) as no from zcs_head"
Set rst = QueryCn.OpenResultset(Sql)
If Not IsNull(rst!No) Then
Text(4).Text = Format(rst!No + 1, "000000000")
Else
Text(4).Text = "000000001"
End If 第一是原有的Rdo连接,通过ODBC连接在Sql Server上的,现在想把它连在Access数据库上,不再用ODBC,直接连. 请教大家用什么方法最好,连Access数据库后,原有的查询任然有效,也就是'第二'能够继续运行!
Cnct = "dsn=zcs;uid=sa;pwd=admin;database=zcs" QueryCn.Connect = Cnct$
QueryCn.CursorDriver = rdUseOdbc
QueryCn.EstablishConnection rdDriverNoPrompt, False
QueryCn.QueryTimeout = 60
第二:
Sql = "select max(zcs_no) as no from zcs_head"
Set rst = QueryCn.OpenResultset(Sql)
If Not IsNull(rst!No) Then
Text(4).Text = Format(rst!No + 1, "000000000")
Else
Text(4).Text = "000000001"
End If 第一是原有的Rdo连接,通过ODBC连接在Sql Server上的,现在想把它连在Access数据库上,不再用ODBC,直接连. 请教大家用什么方法最好,连Access数据库后,原有的查询任然有效,也就是'第二'能够继续运行!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货