• 全部

原码修改data改ado，在线急等，解决利结！！

bluesanke 2003-04-02 03:38:30
Option Explicit

Dim Mydb As Database
Dim Myrs1 As Recordset
Dim Myrs2 As Recordset

Private Sub Command1_Click()
Dim mrc As Recordset
Dim str1 As String, str2 As String

If Option1.Value = True Then
If Text1.Text = "" Then
MsgBox "请正确填写进库单号码！", vbOKOnly + vbExclamation, "信息提示"
Text1.SetFocus
Exit Sub
Else
Set Myrs1 = Mydb.OpenRecordset("select * from inlib where 进库单号码='" & Trim(Text1) & "'")
MSFlexGrid1.Clear
TableInit
If Myrs1.RecordCount >= 1 Then
Set Myrs2 = Mydb.OpenRecordset("select * from inlibdetail,goods where 进库单号码='" & Trim(Text1) & "' And GoodsID = 材料编码")
While Myrs2.EOF = False
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = Myrs1.Fields("进库单号码")
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = Myrs1.Fields("发票号码")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = Myrs1.Fields("进库日期")
MSFlexGrid1.Col = 3
If IsNull(Myrs1.Fields("经办人")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs1.Fields("经办人")
End If
MSFlexGrid1.Col = 4
If IsNull(Myrs1.Fields("保管人")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs1.Fields("保管人")
End If
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = Myrs2.Fields("goodsid")
MSFlexGrid1.Col = 6
MSFlexGrid1.Text = Myrs2.Fields("goodsname")
MSFlexGrid1.Col = 7
MSFlexGrid1.Text = Myrs2.Fields("type")
MSFlexGrid1.Col = 8
MSFlexGrid1.Text = Myrs2.Fields("unit")
MSFlexGrid1.Col = 9
MSFlexGrid1.Text = Myrs2.Fields("数量")
MSFlexGrid1.Col = 10
MSFlexGrid1.Text = Format(Myrs2.Fields("单价"), "#0.00")
MSFlexGrid1.Col = 11
MSFlexGrid1.Text = Format(Myrs2.Fields("金额"), "#0.00")
MSFlexGrid1.Col = 12
If IsNull(Myrs2.Fields("备注")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs2.Fields("备注")
End If
Myrs2.MoveNext
Wend
Myrs2.Close
Else
MsgBox "不存在这个进库单号码", vbOKOnly + vbExclamation, "信息提示"
Text1 = ""
Text1.SetFocus
Exit Sub
End If
Myrs1.Close
End If
End If
end sub
尤其是Set Myrs1 = Mydb.OpenRecordset("select * from inlib where 进库单号码='" & Trim(Text1) & "'")这句中的Mydb.OpenRecordset用ado怎么实现？！


...全文
10 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
zsgzsgzsg 2003-04-02
连接字符串:
1、"Driver={Microsoft ODBC for Oracle};Server=OracleServer.world;Uid=Username;Pwd=asdasd;"
2、"Provider=msdaora;Data Source=MyOracleDB;User Id=UserName;Password=asdasd;"
3、"Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;User Id=Username;Password=asdasd;"
根据你自己的实际情况选择一个
 回复 赞
bluesanke 2003-04-02
谢谢大哥又来帮忙！
可是cnsstring="Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\data\XXXX.mdb;" _
& "Persist Security Info=False"
'连接字符串，这相要根据你自己的实际情况来改一下。
我用的是oracle库怎么修改呀！很麻烦吗 ？？
 回复 赞
bluesanke 2003-04-02
Myrs1.open "select * from inlib where 进库单号码='" & Trim(Text1) &"',cnn, adOpenDynamic, adLockPessimistic为什么运行到open就显示要求对象呀！另外我用的是oracle的库，cnn.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & App.Path & "\表名.mdb"
cnn.ConnectionTimeout = 30
这个怎么实现？？？？？
 回复 赞
chenyu5188 2003-04-02
Option Explicit

Dim Mycn As new adodb.connection'数据库连接对象，用于打开数据库
Dim Myrs1 As new adodb.Recordset'记录集对象，用于存入记录的
Dim Myrs2 As new adodb.Recordset'记录集对象，用于存入记录的

Private Sub Command1_Click()
Dim cnstring as string'用于存放连接字符串的
cnsstring="Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\data\XXXX.mdb;" _
& "Persist Security Info=False"
'连接字符串，这相要根据你自己的实际情况来改一下。
mycn.open cnstring
mycn.CursorLocation=adUseClient
If Option1.Value = True Then
If Text1.Text = "" Then
MsgBox "请正确填写进库单号码！", vbOKOnly + vbExclamation, "信息提示"
Text1.SetFocus
Exit Sub
Else
Myrs1.open "select * from inlib where 进库单号码='" & Trim(Text1) & "'",mycn
MSFlexGrid1.Clear
TableInit
If Myrs1.RecordCount >= 1 Then
Myrs2.open "select * from inlibdetail,goods where 进库单号码='" & Trim(Text1) & "' And GoodsID = 材料编码",mycn
While Myrs2.EOF = False
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = Myrs1.Fields("进库单号码")
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = Myrs1.Fields("发票号码")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = Myrs1.Fields("进库日期")
MSFlexGrid1.Col = 3
If IsNull(Myrs1.Fields("经办人")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs1.Fields("经办人")
End If
MSFlexGrid1.Col = 4
If IsNull(Myrs1.Fields("保管人")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs1.Fields("保管人")
End If
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = Myrs2.Fields("goodsid")
MSFlexGrid1.Col = 6
MSFlexGrid1.Text = Myrs2.Fields("goodsname")
MSFlexGrid1.Col = 7
MSFlexGrid1.Text = Myrs2.Fields("type")
MSFlexGrid1.Col = 8
MSFlexGrid1.Text = Myrs2.Fields("unit")
MSFlexGrid1.Col = 9
MSFlexGrid1.Text = Myrs2.Fields("数量")
MSFlexGrid1.Col = 10
MSFlexGrid1.Text = Format(Myrs2.Fields("单价"), "#0.00")
MSFlexGrid1.Col = 11
MSFlexGrid1.Text = Format(Myrs2.Fields("金额"), "#0.00")
MSFlexGrid1.Col = 12
If IsNull(Myrs2.Fields("备注")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs2.Fields("备注")
End If
Myrs2.MoveNext
Wend
Myrs2.Close
Else
MsgBox "不存在这个进库单号码", vbOKOnly + vbExclamation, "信息提示"
Text1 = ""
Text1.SetFocus
Exit Sub
End If
Myrs1.Close
End If
End If
end sub
 回复 赞
980 2003-04-02
Public cnn As ADODB.Connection
Public Myrs1,Myrs2 As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & App.Path & "\表名.mdb"
cnn.ConnectionTimeout = 30
cnn.CursorLocation = adUseClient
cnn.Open
Myrs1.open "select * from inlib where 进库单号码='" & Trim(Text1) &"',cnn, adOpenDynamic, adLockPessimistic
Myrs2.open "select * from inlibdetail,goods where 进库单号码='" & Trim(Text1) & "' And GoodsID = 材料编码",cnn, adOpenDynamic, adLockPessimistic

这是acces数据库别的一样
 回复 赞
bluesanke 2003-04-02
Option Explicit

Dim Mydb As Database
Dim Myrs1 As Recordset
Dim Myrs2 As Recordset

Private Sub Command1_Click()
Dim mrc As Recordset
Dim str1 As String, str2 As String

If Option1.Value = True Then
If Text1.Text = "" Then
MsgBox "请正确填写进库单号码！", vbOKOnly + vbExclamation, "信息提示"
Text1.SetFocus
Exit Sub
Else
Set Myrs1 = Mydb.OpenRecordset("select * from inlib where 进库单号码='" & Trim(Text1) & "'")
其实把上面这句改了就行！
 回复 赞
相关推荐
原码修改，分不够再加，在线等待！！！ 查询按钮的代码，我的这个用ado的话怎么改呀，而且很急的，通过查询编号把和编号在一个表里的数据全部反映到对应的text中,关键是1),2)两句！！！解决问题给分！谢谢！！ Private Sub CmdQuery_Click() 'FindBH是要...
ADO連接ACCESS數據庫時的怪問題?(能解决送300分!!!!) 试验的原码如下:程序中有2个Command控件,1个text控件和一个MSFlexGrid控件 Dim cnn As New ADODB.Connection Dim rcc As New ADODB.Recordset Private Sub Form_Load() cnn.Open ("Provider=Microsoft.jet.oledb....
VB中的ADO数据对象编程 ADO是ActiveX Data Objects 的缩写,是一项新的数据库的存取技术。相对于VB5.0中的DAO他具有更为简化的对象模型,无论是存取本地的还是远程的数据,都提供了一致的接口. 对于ADO其中对象来说,我觉得比较重要的是:...
ADO数据库用rs.Open "MyTable", 语句时出错，有原码 " ’不能把这里的4.0改为3.51 pstr = pstr & "Data Source=" & fm cat.Create pstr ‘创建数据库 Dim tbl As New Table cat.ActiveConnection = pstr tbl.Name = "MyTable" ‘表的名称 tbl.Columns.Append "编号", ...
ADO连接 ADO是ActiveX Data Objects 的缩写,是一项新的数据库的存取技术.相对于VB5.0中的DAO他具有更为简化的对象模型,无论是存取本地的还是远程的数据,都提供了一致的接口.就我本人而言,ADO的确比DAO要好用得多. 今天只...
ADO.NET数据访问技术和简单的添加数据合查询演示 ADO.NET数据访问计数 1、.NET平台提供的各种数据访问对象，开发者可以 很轻松的完成对数据库的各种操作 插入一条数据 using System; using System.Collections.Generic; using System.Linq; using System.Text...
BCB存取图片等信息！ <!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
能给个ADO 方式的BCB联数据库的例子码 要原码及程序 能给个ADO 方式的BCB联数据库的例子码 要原码及程序 不知为什么我自己的程序在自己的能连;到别人的机子上就不能连 代码如下: #include <vcl.h> #pragma hdrstop #include "Unit1.h" #pragma package(smart_init) #...
VB中的ADO对象编程 那天听到一位同学说他的女朋友是学新闻的可也学会了数据库,可学计算机的自己却还是不会,总觉得有点汗颜.在各网站的论坛上,也常看到网友对数据库的一些操作很难... ADO是ActiveX Data Objects 的缩写,是一项新的数据库
掌握VB中的ADO数据对象编程 那天听到一位同学说他的女朋友是学新闻的可也学会了数据库,可学计算机的自己却还是不会,总觉得有点汗颜.在各网站的论坛上,也常看到网友对数据库的一些操作很...　ADO是ActiveX Data Objects 的缩写,是一项新的数据库的
SqlHelper详解和原码 SqlHelper 类实现详细信息SqlHelper 类用于通过一组静态方法来封装数据访问功能。该类不能被继承或实例化，因此将其声明为包含专用构造函数的不可继承类。 在 SqlHelper 类中实现的每种方法都提供了一组一致的重载。...
计算机人该读的书！！！ 书名后面没有扩展名的是目录，目录内可能是大堆的文件（比如HTML或PDG等），都列出来太乱，这里省略了。Directory tree for F:/Books/计算机编程--------------------------------------------
vc++商品销售管理系统源码 vc++商品销售管理系统源码,采用ADO+SQL技术，压缩包里有详细数据库配置，在程序中的DATA文件夹下是数据库备份。 强烈推荐此源码
小第跪求 ASP 远程连接 Access 问题,各位高手救命啊! Microsoft ADO/RDS 错误 '800a2011' Internet 服务器错误:找不到对象或模块。 /1.asp，行 9 原码如下: ;" & _ "Remote Server=http://127.0.0.1;" & _ "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data ...
看.net软件工程师价值1万多培训视频！ 视频＋笔记＋演示原码（花了一万多的培训资料超值,有互动内容）北京最权威的.NET培训机构认真学习后包你能成为优秀的.net程序员培养目标：IT人才市场紧缺的精通.Net应用开发的软件技术人才。精通C#.Net、ASP.Net、...
高手请进！！！关于数据库 我想做一个浏览添加，修改，删除数据库（MicroSoft Access）的程序, 所以就用了数据窗体向导创建， 创建过程中Form Layout一栏选的是Grid（Datasheet）， Binding type选的是ADO Data Control，但是Finish的时候...
我编的合并数据库的程序合并速度太慢了.请求高手帮我改进,我编的原码如下: hebinhoufilename = InputBox("请输入合并后文件名.", "提示", Year(Date) & Month(Date) & Day(Date) & "合并汇总") 'VB编辑器主窗体的【工程】菜单－>【引用】，在弹出的窗体中选择【Microsoft ADO Ext....
原生ADO + oracle9i的问题 请教大虾： 我用ADO访问oracle9i，退出后出现异常；而改成访问access却没有异常。 当我执行ButtonAccess后，关闭FORM，则正常退出。当我执行ButtonOra时，关闭FORM，则报异常。请高手指教。 原码如下： unit ...
谁能正常运行这个微软的ADO例程？？？（Save 和 Open 方法范例 ） 前两个功能都调试通过，但是最后一个更新却始终无法得到正确的结果，我自己改的程序在跟贴里，下面是原码。盼那位老大能够点拨一下，实在是头大了。再次深表感谢！！！ 假设用户在出差时要携带数据库中的一个表。在...
Access数据库设计问题，急…… #import"C:\Program Files\Common Files\System\ado\msado15.dll"no_namespace \ rename("EOF","ado_EOF")rename("BOF","ado_BOF") 下面是使用原码： void CVc_accessDlg::OnButton1() { // TODO: Add your control...
Java技术资源！(来源：http://www.apusic.com/product/jszy.htm) 支持最新schema标准，可以根据schema校验XML文档可以将不同schema版本schema文档转换成符合最新schema规范的文档可以将DTDs, XML-Data, 或者 BizTalk schemas 转换成 W3C XML Schema从数据库连接 （ADO,ODBC）中自动...
ERP框架源程序 TopERP 我这里带的ADO数据库连接配置器已经实现了通用灵活的让客户端联上SQLSERVER,而无需修改原码,其它在运行期让设计人员动态创建SQLSERVER的触发器,存贮过程并保存下来而无需修改原码的功能就有待各位高手完善了. ...
JAVA上百实例源码以及开源项目
按日期查询今日记录的疑问（请高手赐教）？急 ”改为“FTIME ”(即小于某一天的记录)，例如：当timeprew1为 2000年9月20日，查询到的结果是2000年9月以前的记录。2000年9月1日至2000年9 月20日之间的记录无法查到。 好象没有进行日期的比较，只比较了年和月。同...
C/C++笔试题 1．进程和线程的差别。 线程是指进程内的一个执行单元,也是进程内的可调度实体. 与进程的区别: ...(1)调度：线程作为调度和分配的基本单位，进程作为拥有资源的基本单位 ...(2)并发性：不仅进程之间可以并发执行，同...
SSIM 指标说明 文章 介绍 SSIM 图像评价指标和由来，比较一般的图像质量评价标准，比较ssim 和尖峰信噪比的差异，等等，是英文资料
yii2实战快餐系统 基于yii2开发的一套快餐系统，支持微信支付和支付宝支付。源代码托管到github上，搜索 abei2017/yii2.food 可以进入。 通过实战项目让yii2初学者更快的融入到实际项目开发中。
Linux系统管理员/网络管理员(PDF版) 两本非常好的Linux系统学习的书 系统管理主要介绍Linux系统的结构、管理、命令等 网络管理主要从网络协议角度出发阐述Linux的网络功能
STM32F103中文数据手册 这个里面包含了STM32F103的各种型号的数据手册，方面理解
QRegExp的详细解析 引言 正则表达式（regular expression）就是用一个“字符串”来描述一个特征，然后去验证另一个“字符串”是否符合这个特征。比如 表达式“ab+” 描述的特征是“一个 'a' 和 任意个 'b' ”，那么 'ab', 'abb', 'abbbbbbbbbb' 都符合这个特征。 正则表达式可以用来：（1）验证字符串是否符合指定特征，比如验证是否是合法的邮件地址。（2）用来查找字符串，从一个长的文本中查找符合指定特征的字符串，比查找固定字符串更加灵活方便。（3）用来替换，比普通的替换更强大。
发帖
数据库(包含打印，安装，报表)
创建于2007-09-28

1184

社区成员

5.5w+

社区内容

VB 数据库(包含打印，安装，报表)
申请成为版主
帖子事件
创建了帖子
2003-04-02 03:38
社区公告
暂无公告