嘉定都市网

查看:828 回复:4 发表于 2004-2-17 16:15

该用户从未签到

qrcode
跳转到指定楼层
楼主
发表于 2004-2-17 12:36:26 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

请嘉定的vb高手帮小弟个忙。 [复制链接]

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
小弟用server2000+sql2000+vb6.0做数据库,在添加记录后页面无法刷新,因为sql2000用了主键自动生成。无法用最常规的move系列命令刷新屏幕。请问高手们有什么好的建议,能帮帮小弟吗?先谢谢了。
Con.Execute (\"insert into 系统表 (编号,课程号)  values (1000002,44444444)\")
   Rs.MoveNext
这时会提示,不能插入空值,但实际上是move命令出错了,数据已经完全的写入数据库中。
求助!求助!求助!求助!求助!
       

此贴由 飚风如火 在 2004-02-17 12:38:21 最后编辑
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 转播转播 分享淘帖 支持支持 反对反对
回复

使用道具 打印 举报

该用户从未签到

沙发
发表于 2004-2-17 15:26:52 | 只看该作者
用ADO
回复 支持 反对

使用道具 打印 举报

该用户从未签到

板凳
 楼主| 发表于 2004-2-17 15:48:00 | 只看该作者
老大啊!我的数据库使用的ado啊!
  Dim ServerName As String
    Dim DatabaseName As String
    Dim UserName As String
    Dim Password As String
    Set Con = New ADODB.Connection
    On Error GoTo ErrorConnect:

' Put text box values into connection variables.
   
     ServerName = Trim(txtServerName.Text)
     DatabaseName = "XXXXX"
     UserName = Trim(Combo1.Text)
     Password = txtPassword.Text
     
    Con.ConnectionTimeout = 25
    Con.Provider = "sqloledb"
    Con.Properties("Data Source").Value = ServerName
    Con.Properties("Initial Catalog").Value = DatabaseName
Set Rs = New ADODB.Recordset
Set RsLst = New ADODB.Recordset
    Rs.Open "select * from XXXXX", Con, adOpenStatic, adLockPessimistic, adCmdText

我只是想问问怎么样刷新远程sql数据库已经存在的数据啊?我估计是锁定指针上出了问题,但不知道用什么命令?谢谢了,请指教您的ado怎么个用法??  再次谢谢了。
       

此贴由 飚风如火 在 2004-02-17 15:49:18 最后编辑
回复 支持 反对

使用道具 打印 举报

该用户从未签到

地板
发表于 2004-2-17 15:55:37 | 只看该作者
呵呵,不好意思,我乱说的,你到expert.csdn.net去问问
回复 支持 反对

使用道具 打印 举报

该用户从未签到

5
发表于 2004-2-17 16:15:13 | 只看该作者
呵呵,vb6肯定是用ado了,.net中可以用ADO.net,我只看了一点后来就用java了(jdbc)。

看你的代码似乎没什么问题。vb俺不懂,代码看着难受...
回复 支持 反对

使用道具 打印 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

发表新贴 返回顶部