VisualFreeBasic链接mysql数据库用法

VisualFreeBasic：类似VisualBasic6的FreeBasic语言集成开发环境

http://www.yfvb.com/soft-48.htm

原作者vfb连接数据库有sqlite和access例子，我想常用的mysql也链接下试试吧，最后发现链接字符串不对头，那就先找vb6代码联通试试

网上找来代码提示报错变量未定义

Dim Conn As New ADODB.connection

根据网上解说，菜单-工程-引用Microsoft ActiveX Data Objects 2.x Library

ado技术发展多年，有很多个版本了，都能用，不过我还是用了比较新的版本6.1的

然后发网上找了mysql的驱动

https://www.cr173.com/soft/50794.html
记得安装32位吧，vb6是太古老的技术，64位估计不顺畅

然后链接字符串还是不对，在vb6工具箱右键选部件，控件列表里选择 microsoft ado data control 6.0(sp6)

这个控件的ConnectionString属性就是Conn的ConnectionString

图形界面点击属性，刚开始选了数据源试了成功，后来摸索着直接字符串，也成功了。当然最后连接数据其实不需要这个控件就可以，用这个控件主要就是帮忙生成链接字符串。当年vb6那么风靡就是因为太好用了，各种控件点点就好了，要是纯代码，想破脑袋也不知道连接代码什么写法。

   Dim strCon$                             '不需要设置dsn直接使用Dim strCn$                                  '设置dsn用法strCn = "Provider=MSDASQL.1;Password=root;Persist Security Info=True;User ID=root;Data Source=db1;OPTION=3;"strCon = "Provider=MSDASQL.1;Persist Security Info=True;Extended Properties=""Driver=MySQL ODBC 8.0 Unicode Driver;SERVER=192.168.1.100;UID=root;DATABASE=db1;PORT=3306;pwd=root"""Dim Conn As New ADODB.connectionWith ConnIf .State = adStateOpen Then .Close.ConnectionString = strCon.CommandTimeout = 15.OpenEnd With' 设置该属性, 使 recordcount 和 absolutepage 属性可用Conn.CursorLocation = adUseClientIf Conn.State = adStateOpen ThenMsgBox "连接成功", vbOKOnly, "提示"ElseMsgBox "连接失败", vbOKOnly, "提示"End IfConn.Close

知道了vb6的写法，搬到vfb里就ok了


#include "Afx/CADODB/CADODB.inc"'// 打开连接Dim pConnection As CAdoConnection Ptr = NEW CAdoConnection' 如果配置dsn Provider=MSDASQL.1;Password=root;Persist Security Info=True;User ID=root;Data Source=dsly;OPTION=3;pConnection->ConnectionString = "Provider=MSDASQL.1;Persist Security Info=True;Extended Properties=""Driver=MySQL ODBC 8.0 Unicode Driver;SERVER=192.168.1.100;UID=root;DATABASE=db1;PORT=3306;pwd=root"""PRINT pConnection->ConnectionStringpConnection->Open'pConnection->Open "Provider=Microsoft.Jet.OLEDB.4.0;Password=root;User ID=root;Data Source=service.mdb;"'// 打开记录集Dim pRecordset As CAdoRecordset'// 将光标位置设置到客户端对于获取断开的记录集非常重要pRecordset.CursorLocation = adUseClientPRINT   pRecordset.State'// 打开记录集Dim cvSource As CVAR = "SELECT * FROM i_user"pRecordset.Open(cvSource, pConnection, adOpenKeyset, adLockOptimistic, adCmdText)'// 通过将其活动连接设置为空来断开记录集。'// 投射到Afx_ADOConnection PTR需要获得正确的重载方法;'// 否则，CVAR版本将被调用并且会失败。pRecordset.ActiveConnection = Cast(Afx_ADOConnection Ptr, Null)'// 关闭并释放连接Delete pConnectionlist1.Clear()'// 解析记录集Do'// 测在不在记录集的末尾...                                                                                       If pRecordset.EOF Then Exit Do'// 获取“用户名”列的内容dim ss as String = pRecordset.Collect("user_name")PRINT sslist1.AddItem(ss)'// 取下一行If pRecordset.MoveNext <> S_OK Then Exit DoLoop

VisualFreeBasic链接mysql数据库用法相关推荐

java查询mysql装载bean_jsp与javabean链接mysql数据库并查询数据表的简单实例源码
jsp与javabean链接mysql数据库并查询数据表的简单实例源码.这个简单的实例是给新手学习的,或者一些高手临时忘记怎么使用jsp操作mysql数据库时候查找的,包括了建立mysql数据库连接的 ...
Mysql —— C语言链接mysql数据库，实现可以增删改查的角色权限登录系统
/******************************************************************** * 标题:C语言链接mysql数据库,实现可以增删改查的角色 ...
MySQLWorkbench链接MySQL数据库
使用Workbench链接MySQL数据库点开链接,如果有密码点击输入即可. 输入密码[root](自己的密码),并点击[OK]按钮点击[Test Connection],测试连接是否成功.如下图 ...
mysql数据库java链接,java链接MySQL数据库方法
第一步:安装MySQL 这步我就很少说了,点击去看看怎么安装吧.html 第二步:建立数据库安装好以后,咱们来建立一个数据库,一个表.(代码以下). //建立数据库 test: //在数据库中建立表 ...
node+express项目链接MySQL数据库（最简单版）
node+express项目链接MySQL数据库(最简单版) (假定你node+express项目已创建完成,可参照这里) 第一步.安装mysql驱动 npm install mysql --save ...
安卓mysql类库_Android 链接mysql数据库
本篇简单介绍Android链接Mysql数据库的方式及其操作步骤. 1.1 将JDBC jar包导入项目libs中. 2.2 在AndroidManifest.xml配置权限,允许程序打开网络套接字 ...
微信小程序链接mysql数据库
微信小程序可以通过调用后端 API 来链接 MySql 数据库.在小程序端使用 wx.request 或 wx.cloud.callFunction 等 API 发起请求,在后端使用 Node.js ...
C#使用ODBC链接MySQL数据库
C#使用ODBC链接MySQL数据库 1.ODBC.NET(全称ODBC .NET Data Provider)是一个免费的.NET Framework附加组件,需要到微软公司的网站上去下载,下载地址 ...
SpringCloud（第 039 篇）链接Mysql数据库,通过JpaRepository编写数据库访问
2019独角兽企业重金招聘Python工程师标准>>> SpringCloud(第 039 篇)链接Mysql数据库,通过JpaRepository编写数据库访问一.大致介绍 1. ...

VisualFreeBasic链接mysql数据库用法

VisualFreeBasic链接mysql数据库用法相关推荐

最新文章

热门文章