重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

linux权限区分命令,linux常用权限命令

VB怎么连接mysql

用ODBC!

创新互联是一家朝气蓬勃的网站建设公司。公司专注于为企业提供信息化建设解决方案。从事网站开发,网站制作,网站设计,网站模板,微信公众号开发,软件开发,微信小程序,十载建站对成都边坡防护网等多个领域,拥有丰富的营销推广经验。

先到下载mysql 的 odbc驱动,装上以后 ,再配置数据源,再在vb里面编程连接!

vb高手进,vb连接mysql数据库,怎么把数据写入数据库!

必须安装mysql的驱动才行,不管是vb还是c++都需要这个驱动。

代码如下:

public

function

exemysql(byval

sql

as

string)

as

adodb.recordset

sql

=

trim$(sql)

set

conn

=

new

adodb.connection

set

rs

=

new

adodb.recordset

conn.open

"driver=mysql

odbc

3.51

driver;"

_

"server=服务器地址;"

_

"port=3306;"

_

"database=数据库名;"

_

"uid=用户名;"

_

"pwd=密码"

conn.defaultdatabase

=

"数据库名"

conn.cursorlocation

=

aduseclient

set

rs.activeconnection

=

conn

rs.locktype

=

adlockbatchoptimistic

rs.cursortype

=

adopenkeyset

rs.open

sql

set

exesql

=

rs

set

rs

=

nothing

set

conn

=

nothing

end

function

在VB中,如何连接MYSQL

楼上讲的是VB2005的连接方法,不知道你用的是什么版本的VB,我给你一个VB6.0的连接方法吧

先在本机上安装最新的ODBC CONNECTER/mysql

无需设置ODBC,就可以使用.

注意MYSQL的帐户登录是根据主机的,设置好MYSQL的帐户后再做测试.

测试代码:

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim fld As ADODB.Field

Dim sql As String

'connect to MySQL server using MySQL ODBC 3.51 Driver

Set conn = New ADODB.Connection

conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _

"SERVER=192.168.0.1;" _

" DATABASE=db_name;" _

"UID=username;PWD=password; OPTION=3"

conn.Open

'create table

conn.Execute "DROP TABLE IF EXISTS my_ado"

conn.Execute "CREATE TABLE my_ado(id int not null primary key, name varchar(20)," _

"txt text, dt date, tm time, ts timestamp)"

'direct insert

conn.Execute "INSERT INTO my_ado(id,name,txt) values(1,100,'venu')"

conn.Execute "INSERT INTO my_ado(id,name,txt) values(2,200,'MySQL')"

conn.Execute "INSERT INTO my_ado(id,name,txt) values(3,300,'Delete')"

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseServer

'fetch the initial table ..

rs.Open "SELECT * FROM my_ado", conn

Debug.Print rs.RecordCount

rs.MoveFirst

Debug.Print String(50, "-") "Initial my_ado Result Set " String(50, "-")

For Each fld In rs.Fields

Debug.Print fld.name,

Next

Debug.Print

Do Until rs.EOF

For Each fld In rs.Fields

Debug.Print fld.value,

Next

rs.MoveNext

Debug.Print

Loop

rs.Close

conn.Close

怎么导入mysql数据

方法/步骤

1

登录到phpMyAdmin

2

新建一个要导入的数据库,点击“+new”

3

如图,分别填写数据库名称,以及选择数据库的排序规则,

4

完成步骤3,点击“创建”

5

完成步骤4,从右侧就可以看到我们新创建的数据库了,如果没有立即显示,刷新即可立马显示了。

6

单击我们新创建的数据库,

7

然后,我们选择“导入”,

8

完成步骤7,我们点击“选择文件”,

9

点击了“选择文件”之后,就会出现如图所示的弹出框,我们选择要导入的sql就可以了,后缀名可以是.sql,也可以是压缩文件.zip。如图,选择好文件之后,点击“确定”就可以了

10

完成步骤⑨,你就可以从刚才的页面中看到自己上传的文件了,如图所示,其余选项默认就可以了,然后点击“执行”就可以了。

11

这个时候,你就可以看到你的数据已经导入到你新创建的数据库中了

vb6.0如何连接MYSQL数据库?

最简单的办法是:在VB里添加一个ADO部件,将其放到窗体中,然后右键选择属性,在其属性页的下面有个生成连接字符串的项,点击其后的按钮,然后一步步的来做(很简单的),然后连接字符串就会在那里生成,只要拷贝这个字符串,就可以用ADODB来连接了。。。

vb连接mysql数据库

ODBC加载.

vb中添加一个Adodc的控件.

Public Function conn() As String

conn = "Provider=SQLOLEDB.1;Password=数据库管理密码;Persist Security Info=True;User ID=数据库管理帐号;Initial Catalog=数据库名;Data Source=计算机名"

End Function

Dim rs As New ADODB.Recordset

Dim con As New ADODB.Connection

Dim sql As String

Set con = CreateObject("ADODB.Connection")

con.Open conn

sql = "select * from Admin where username='" username.Text "' and password='" password.Text "'"

rs.Open sql, con, 1, 1


网站名称:linux权限区分命令,linux常用权限命令
标题网址:http://cqcxhl.com/article/heojcc.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP