VB6 連線MySql資料庫

目測 vb6 的資料比較少了，花了好久時間寫了個查詢語句

dim cn as

newadodb.connection
dim rs as
newadodb.recordset
'定義資料庫連線字串變數
dim strcn as
string
'定義資料庫連線引數變數
dim db_host as
string
dim db_user as
string
dim db_pass as
string
dim db_data as
string
dim cmd as
newadodb.command
'定義 sql 語句變數
dim sql as
string
'初始化資料庫連線變數
db_host = "
127.0.0.1
"db_user = "
root
"db_pass = ""
db_data = "
family
"strcn = "
driver=;
" &_
"server=
" & db_host & "
;" &_
"database=
" & db_data & "
;" &_
"uid=
" & db_user & "
;pwd=
" & db_pass & "
;" &_
"option=3;stmt=set names utf8"'
連線資料庫
'cn.open strcn
'設定該屬性, 使 recordcount 和 absolutepage 屬性可用
'cn.cursorlocation = aduseclient
'rs.open "tb_sys_emp", cn, adopenkeyset, adlockoptimistic
'rs.movefirst
'do while rs.eof = false
'debug.print rs.fields("emp_name")
'rs.movenext
'loop
'rs.close
cn.open strcn
set cmd.activeconnection =cn
cmd.commandtext = "
select emp_name from tb_sys_emp
"cmd.commandtype =adcmdtext
cmd.commandtimeout = 15
set rs =cmd.execute
rs.movefirst
dowhile rs.eof = false
debug.print rs.fields(
"emp_name")
rs.movenext
loop
rs.close
debug.print list.count

VB6連線PI實時資料庫

option explicit dim tagname as string 儲存單個工位號 dim tagpoint as long 儲存單個點源 dim apistate as long 儲存返回狀態 dim loginstate as long 儲存登入狀態 private sub cmdaut...

再看資料庫 （6）連線

連線是多表查詢的基礎。因為關聯式資料庫不包括指標或其它關聯記錄與記錄的機制，連線成為了生成跨表資料關係的唯一機制。這也就是要用連線的原因。1 內連線 使用比較運算子比較被連線列的列值。等值 不等 以外運算子 自然 但它使用選擇列表指出查詢結果集合中所包含的列。並刪除連線表中的反覆列。演示樣例 資料庫...

nodejs高階 6 連線MySQL資料庫

連線mysql資料庫需要安裝支援 npm install mysql 我們需要提前安裝按mysql sever端 建乙個資料庫mydb1 mysql create database mydb1 mysql show databases database information schema mysq...