vb如何调用服务器数据库
mxp 2000-04-20 09:44:00
呜!我记得下面写法是好用的,可是现在一到AddNew就提示数据或对象只读??!请问各位如何解决?
已经建立系统(或用户)数据源mmm,指向SQL数据库,数据能够正常访问出来,就是不能写!!!请不要写rdo或ado之类,我就是要用Dao.
另,本题采用双重得分,能够解决的得分后请到vc的sos中签名,还有50分献上!!!
On Error GoTo mxp
Set dbs = OpenDatabase("", False, False, "ODBC;DSN=mmm;SERVER=202.118.5.163;UID=sa;PWD=;APP=VisData;WSID=ZTS;DATABASE=infocenter")
Set rst = dbs.OpenRecordset("select * from info_common")
If Not rst.EOF Then
rst.MoveLast
MsgBox rst.RecordCount
End If
rst.AddNew
...
mxp:
MsgBox Err.Description, vbOKOnly, Err.Number
rst.Close
dbs.Close