一个关于VB数据库的问题

2008-05-30 11:09:45 124 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB6.0+SQL2000做程序时ODBC连接数据库出现的问题 1当VB代码已经完成，数据库也完成时，我们需要做的就是连接两者用ODBC数据源方法的步骤： 1.1 开始→控制面板→管理工具（win7为系统和安全页面的下方）→ODBC数据源1.2 ODBC数据源选项卡的系统DSN选项→添加→SQL Server(一般在最后位置)1.3 名称，描述随便设置，服务器就是你的SQL客户端名称了，下拉列表找不到就复制粘贴下，选择“使用用户输入登录ID和密码的SQL Server验证”，登录ID一般设置为sa（貌似阅读详情

我是刚学VB的，昨天写了一个数据库小程序，代码和表在附件那，在UserData窗口那出现几个问题，不知道怎么修改，请各位大侠帮忙看看，谢谢了！！可以加我QQ：37419420 ，大家一起讨论。

...全文

Android HTTPS抓包证书配置全解：Proxyman实战避坑指南 HTTPS抓包本质是中间人（MITM）通信的可信建立过程，其核心在于客户端对代理根证书的信任链配置。在Android平台，自7.0起系统默认不信任用户安装的CA证书，必须通过Network Security Config显式声明trust-anchors，将Proxyman导出的PEM格式根证书纳入App级信任锚点。这一机制区别于iOS和桌面浏览器，导致大量开发者卡在‘证书已安装却无法解密’的误区。技术价值在于打通开发调试闭环：精准定位SSLHandshakeException、绕过证书固定、支持React 阅读详情

奔跑的土猪

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

奔跑的土猪 2008-05-30

打赏
举报

我用模块来传递不同窗体之间的参数，请大家把代码下来看看吧，谢谢了！！

njstalk 2008-05-30

打赏
举报

首先确信你的窗体上有 adodc1 和 stId 这两个控件，然后再检查你adodc1 所连数据表中有没有 "序号" 这个字段。

奔跑的土猪 2008-05-30

打赏
举报

问题有好几个，一个是语句：Adodc1.Recordset("序号") = stId.Text 错误显示是：要求对象

njstalk 2008-05-30

打赏
举报

直接讲啥问题吧。

奔跑的土猪 2008-05-30

打赏
举报

UserData窗口代码如下：

Private Sub cmdOk_Click()
'On Error Resume Next
If op <> "del" Then '如果是执行添加或编辑操作
Adodc1.Recordset("序号") = stId.Text
Adodc1.Recordset("机柜号") = stCabinet.Text
Adodc1.Recordset("KVM") = stKVM.Text
Adodc1.Recordset("服务器") = stServer.Text
Adodc1.Recordset("IP") = stIP.Text
Adodc1.Recordset("服务器应用") = stServerUse.Text
Adodc1.Recordset("网卡") = stNetwordCard.Text
Adodc1.Recordset("线号") = stLine.Text
Adodc1.Recordset("交换机") = stGuidway.Text
Adodc1.Recordset("端口") = stPort.Text
Else
Adodc1.Recordset.Delete '删除当前记录
End If
Adodc1.Recordset.Updata '更新
Unload Me
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub Form_Load()
'On Error Resume Next
Select Case op
Case "add"
DataRegister.Caption = "添加记录"
Case "edit"
DataRegister.Caption = "编辑记录"
Case "del"
DataRegister.Caption = "删除记录"
End Select
'Adodc1.Refresh
If op <> "add" Then '如果是执行删除或编辑操作
Adodc1.Recordset.Bookmark = bm
stId.Text = Adodc1.Recordset("序号")
stCabinet.Text = Adodc1.Recordset("机柜号")
stKVM.Text = Adodc1.Recordset("KVM")
stServer.Text = Adodc1.Recordset("服务器")
stIP.Text = Adodc1.Recordset("IP")
stServerUse.Text = Adodc1.Recordset("服务器应用")
stNetwordCard.Text = Adodc1.Recordset("网卡")
stLine.Text = Adodc1.Recordset("线号")
stGuidway.Text = Adodc1.Recordset("交换机")
stPort.Text = Adodc1.Recordset("端口")
'Else
'Adodc1.Recordset.AddNew
End If
End Sub

奔跑的土猪 2008-05-30

打赏
举报

我已经弄好了，谢谢了，嘎嘎

njstalk 2008-05-30

打赏
举报

主要是你的 DataRegister 这个窗口，你的意思是想在这个窗口上面添加数据吧，不过窗体里面并没有你用的adodc1 这个控件，如果你要使用UserData 这个窗体上的，那么要这样用：stId.Text = UserData.Adodc1.Recordset("序号")

njstalk 2008-05-30

打赏
举报

你的email是好多，我把改后的发你看看。

一个关于VB数据库的问题

相关推荐