
解析:
Sqlca.DBMS="ODBC"
Sqlca.DbParm="Connectstring='DSN=dt_hms'"
Connect Using Sqlca
If Sqlca.SqlCode<>0 Then
MessageBox("SQL Error !", Sqlca.SQLErrText)
Else
MessageBox("信息","注册成功!")
End If
把上面的dt_hms改成你自己的数据源名称
楼上的连接是用native interface的方法
可以用odbc来连接[解决办法]
pb6.5 有一个机器码补丁,安装后会多一个 oracle8.0 以上的直连配置。但似乎必须编译成机器码,否则会不太正常。
建议升级到 pb9,代码无需任何改动。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)