VB6连接各种类型的数据库

消费机介绍：https://item.taobao.com/item.htm?spm=a1z10.5-c.w4002-17663462238.23.363e58818tCwi2&id=21758416134https://item.taobao.com/item.htm?spm=a1z10.5-c.w4002-17663462238.23.363e58818tCwi2&id=21758416134

一、连接VFP数据库

Dim CNN As New ADODB.Connection
Dim rssys As New ADODB.RecordsetIf CNN.state = 1 Then CNN.Close
CNN.ConnectionString = "Driver={Microsoft Visual FoxPro Driver};SourceType=.DBc;SourceDb=" + Trim(Text1)
CNN.Open
If CNN.state = 1 Thenrssys.CursorLocation = adUseClientrssys.Open "select * from sys ", CNN, adOpenDynamic, adLockReadOnly
End If

二、连接Ms SQL数据库

Dim CNN As New ADODB.Connection
If loginid = 0 ThenCNN.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=RongShiYKT;Data Source=" & Trim(sqlserver)
ElseIf loginid = 1 ThenCNN.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=123456;Initial Catalog=RongShiYKT" & ";Data Source=" & Trim(sqlserver)
End If
CNN.Mode = adModeShareDenyNone
CNN.CommandTimeout = 0
CNN.OpenDim cmd As New ADODB.Command
Set cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "DealMealData"
cmd.Parameters(1) = rscx.Fields("ID")
cmd.Execute

三、连接Access数据库

Dim CNN As New ADODB.Connection
CNN.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Elevator.mdb;Persist Security Info=true;Jet OLEDB:Database Password=123456"
If CNN.State = 1 Then CNN.Close
CNN.Open

四、连接MySql数据库

Dim CNN As New ADODB.Connection
Dim mysqlstor As New ADODB.Command
CNN.ConnectionString = " DRIVER={MySQL ODBC 5.2 unicode Driver};" & "SERVER=" & hostserver & "; DATABASE=" & dbserver & ";UID=" & user & ";PWD=" & pwd & "; OPTION=3"
If CNN.State = 1 Then CNN.Close
CNN.Open CREATE DEFINER=`rsadmin`@`%` PROCEDURE `Stor_Add_Cust`(IN Cust0 varchar(60) character set gbk,
IN Cont1 varchar(20) character set gbk,
IN Mobi2 varchar(15) character set gbk,
IN Tel3 varchar(15) character set gbk,
IN Fax4 varchar(15) character set gbk,
IN QQ5 varchar(15) character set gbk,
IN Addr6 varchar(80) character set gbk,
IN ShopA7 varchar(60) character set gbk,
IN ShopT8 varchar(15) character set gbk,
IN ShopF9 varchar(15) character set gbk,
IN Email10 varchar(30) character set gbk,
IN Area111 varchar(18) character set gbk,
IN Rema12 varchar(80) character set gbk,
IN User13 int,
IN Remind14 varchar(250) character set gbk,
IN WebId15 int,
OUT KHBHStr varchar(10),OUT CustId int)
BEGIN  /* 增加一个新客户*/select max(custoCode) into @xfdh from customer;     set @xfdh= LPAD(right( @xfdh,6)+1,10,'KHBH0000000000');set KHBHStr=@xfdh;if not isnull(Cust0) thenInsert into Customer(CustoCode,CustoName,AreaCode,Mobile,Address,Fax,Contact,Tel,QQ,Remark,ShopAdd,ShopTel,ShopFax,E_MAIL,inputdate,UserID,Remind,WebstaId) values(@xfdh,Cust0,Area111,Mobi2,Addr6,Fax4,Cont1,Tel3,QQ5 ,Rema12,ShopA7,ShopT8,ShopF9,Email10,sysdate(),User13,Remind14,WebId15);select Id into CustId from customer where CustoCode=@xfdh;end if;
END;mysqlstor.ActiveConnection = CNN
mysqlstor.CommandText = "Stor_Add_Cust"
mysqlstor.CommandType = adCmdStoredProc
mysqlstor.Prepared = True
mysqlstor.Parameters(0) = Trim(Text4.Text)
mysqlstor.Parameters(1) = Trim(Text6.Text)
mysqlstor.Parameters(2) = Trim(Text12.Text)
mysqlstor.Parameters(3) = Trim(Text3.Text)
mysqlstor.Parameters(4) = Trim(Text2.Text)
mysqlstor.Parameters(5) = Trim(Text11.Text)
mysqlstor.Parameters(6) = Trim(Text5.Text)
mysqlstor.Parameters(7) = Trim(Text13.Text)
mysqlstor.Parameters(8) = Trim(Text15.Text)
mysqlstor.Parameters(9) = Trim(Text14.Text)
mysqlstor.Parameters(10) = Trim(Text7.Text)
mysqlstor.Parameters(11) = selnewbm
mysqlstor.Parameters(12) = Trim(Text8.Text)
mysqlstor.Parameters(13) = czyid
mysqlstor.Parameters(14) = Trim(Text16.Text)
mysqlstor.Parameters(15) = Val(Mid(Combo4.Text, 1, 3))
mysqlstor.Parameters(16) = ""
mysqlstor.Parameters(17) = 0
mysqlstor.Execute
dwbh = mysqlstor.Parameters(16)
selekhid = mysqlstor.Parameters(16)
selcustid = mysqlstor.Parameters(17)sqlstr = "call Stor_InOutMat('" & selck & "'," & Val(Label20.Caption) & "," & Val(Text10) & ",'" & czymc & "','" & Trim(Text11) & "'," & czyid & ")"
CNN.Execute sqlstr

五、连接Oracle数据库

Dim CNN As New ADODB.Connection
CNN.ConnectionString = "Driver={Microsoft ODBC for Oracle};Server=SvrName;UID=UserID;PWD=Password;"
If CNN.State = 1 Then CNN.Close
CNN.Open

六、通过.udl通用数据连接文件连接数据库

Dim cn As New ADODB.Connectioncn.ConnectionString = "File Name=" & App.Path & "\ConnectDatabase.udl;"
cn.Mode = adModeShareDenyNone
cn.CommandTimeout = 0
cn.Open

七、编辑修改.udl通用数据连接文件

Dim s As String
Dim filename As String
Dim BytesBuffer() As Byte
Dim i As Longfilename = App.Path & "\ConnectDatabase.udl"On Error Resume Next
s = "[oledb]" & vbCrLf & "; Everything after this line is an OLE DB initstring" & vbCrLf & "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source=(local)" & vbCrLfBytesBuffer = VBA.StrConv(VBA.StrConv(s, vbUnicode), vbFromUnicode)ReDim BytesBuffer0(1) As Byte
BytesBuffer0(0) = 255
BytesBuffer0(1) = 254If VBA.Len(VBA.Trim(VBA.Dir(filename))) > 0 ThenDeleteFile filename
End Ifi = VBA.FreeFile
Open filename For Binary Access Write As #i
Put #i, , BytesBuffer0
Put #i, , BytesBuffer
Close #i

VB6连接各种类型的数据库相关推荐

Java使用JDBC连接随意类型数据库（mysql oracle。。）
package cn.liz.test;import java.io.InputStream; import java.sql.Connection; import java.sql.Driver; ...
JAVA通过JDBC连接并操作MySQL数据库
JAVA通过JDBC连接并操作MySQL数据库 JDBC(Java Data Base Connectivity,java数据库连接)是一种用于执行SQL语句的Java API,可以为多种关系数据库提 ...
mysql连接方式左联_数据库中的左连接(left join)和右连接(right join)区别 | 改变自己...
Left Join / Right Join /inner join相关关于左连接和右连接总结性的一句话: 左连接where只影向右表,右连接where只影响左表. Left Join select ...
实践案例丨Pt-osc工具连接rds for mysql 数据库失败
本文分享自华为云社区<Pt-osc工具连接rds for mysql 数据库失败>,原文作者:云技术搬运工 . [现象] 主机可以telent 通rds 端口,并且使用mysql-clie ...
Qt连接SQL Server 2014数据库
Qt连接SQL Server 2014数据库 1. 建立目标数据库连接数据库之前,需先在SQL Server中建立一个目标数据库,建立数据库和添加表的步骤这里不详述. 如建立一个名为DataBase ...
ESP32+DHT11+Arduino连接phpstudy的本地数据库
ESP32+DHT11+Arduino连接phpstudy的本地数据库 1接脚: DHT11的data接脚esp32的17脚,gnd-gnd,vcc-5v: #include <WiFi.h&g ...
【Microsoft Azure 的1024种玩法】三十. 使用Azure Data Studio之快速上手连接管理Azure SQL 数据库（一）
[简介] Azure Data Studio 是一种跨平台的数据库工具,适合在 Windows.macOS 和 Linux 上使用本地和云数据平台的数据专业人员,Azure Data Studio 利 ...
判断是哪一个数据库中发生了此问题查找损坏的数据库对象。连接发生问题的数据库
前言 1.1 概述本文介绍了postgresql的几种常见问题,并从现象出发,逐步排查问题,分析导致问题的原因并给出解决方案. 本文介绍的问题分为两大类:一类是关于PostgreSQL无法启动的问题 ...
autocad连接mysql_AutoCAD2004使用外部数据库
Home > CAD代画技巧集锦 > AutoCAD2004使用外部数据库 AutoCAD2004使用外部数据库 1977年1月12日 1679人打酱油 cad数据库链接功能可以让用户在A ...
VS2010环境下用c++语言在MFC对话框程序中连接及操作Mysql 数据库
小编近来由于工作需要,需要折腾一下MySql据库, 由于以前用的数据库不是 MySql, 也不是在 VS2010 , 更不是在 MFC 中连接数据库.所以还颇费了一番周折才实现了把数据插入到数据库表格 ...

VB6连接各种类型的数据库

VB6连接各种类型的数据库相关推荐

最新文章

热门文章