ADO.VBA for CorelDraw
来源:互联网 发布:数据芯片多少钱 编辑:程序博客网 时间:2024/05/17 22:18
在网上找了半天,没找到一个在CorelDraw中连接数据库的应用,只好自己凭着感觉写几行了,下面就是最近写的一小段代码,其实也是很简单的,仅供参考:
Dim strConnection As String
If Right(UCase(textDNS.Text), 4) = ".MDB" Then
'连接MDB数据库
strConnection = "Provider=MSDAORA.1;Data Source=" & textDNS.Text & ";User ID=hskst ;Password=hskst;"
Else
'连接ORACLE数据库
strConnection = "Provider=MSDAORA.1;Data Source=" & textDNS.Text & ";User ID=hskst ;Password=hskst;"
End If
Dim ado As Object
Set ado = CreateObject("ADODB.Connection")
ado.Open strConnection
Dim Rs As Object
Set Rs = CreateObject("ADODB.Recordset")
Rs.CursorLocation = 3
Rs.CursorType = 0
Rs.LockType = 1
Rs.ActiveConnection = ado
Dim strSQL As String
strSQL = GetSQL(CInt(textYQTDM.Text), textNY.Text, textCWDM.Text)
Rs.Open (strSQL)
If Rs.EOF Then
MsgBox "没有数据可显示!"
Else
While Not Rs.EOF
Dim strJH As String
Dim dZZBX, dHZBY As Double
Dim dRCYL, dHS As Double
Dim dLJCYL, dLJCSL As Double
strJH = Rs!JH
dZZBX = Rs!ZZBX
dHZBY = Rs!HZBY
dRCYL = Rs!RCYL
dHS = Rs!HS
dLJCYL = Rs!LJCYL
dLJCSL = Rs!LJCSL
DrawObject strJH, dZZBX, dHZBY, dRCYL, dHS, dLJCYL, dLJCSL, "", dBLC, nK, dXZJD, bZTCOLOR, nBZZT
DoEvents
Rs.MoveNext
Wend
End If
- ADO.VBA for CorelDraw
- VBA ADO常用方法
- VBA中用ADO连接SqlServer2005
- VBA中ADO常用方法
- VBA for EXCEL FAQ
- VBA For Dummies
- VBA For CAD
- VBA陈旧的代码:Access 2 Excel (VBA+ADO)
- VBA学习日志- for excel
- At the begining for VBA
- excel vba for 调配车间
- [VBA/VBS教程] 【VBA For ET 教材连载系列】一
- VBA中用ADO访问SQL SERVER数据库:数据查询
- VBA ADO连接语法及常用参数
- VBA中使用ADO,参数化查询出现 Automation error
- excel-ADO技术-VBA连接mySQL 与orcal
- VBA中使用ADO来处理Excel数据之现状
- 解决VBA ADO连接Access2010以上版本密码无效问题
- 递归函数
- 显示
- oracle10G的闪回数据库
- 使用FileUpload控件上传图片并自动生成缩略图、自动生成带文字和图片的水印图
- LISP 学习笔记 (三) -编辑,加载和编译LISP程序
- ADO.VBA for CorelDraw
- ASP的栈类
- ZOJ 1013 Great Equipment ---- DP
- 西装穿着礼仪
- 实用JavaScript
- clob整理
- Implementing the Singleton Pattern in C#
- 用C#实现office2003风格的菜单组件
- Oracle的行移动