mysql连接内存释放 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → mysql连接内存释放

共有3067人关注过本帖树形打印复制链接主题：mysql连接内存释放

z769036165

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：760 积分：5430 威望：0 精华：0 注册：2012/10/5 21:53:00

mysql连接内存释放 发帖心情

Post By：2018/9/5 11:41:00 [只看该作者]

Dim conn As MySql.Data.MySqlClient.MySqlConnection

Dim cmd As MySql.Data.MySqlClient.MySqlCommand

Dim connStr As String = "server=192.168.1.1; port=3301; user id=root; password=root ; database=test;CharSet=utf8" '设置你的数据库连接字符串,注意我设置了字符编码为utf8,如果你的mysql里有中文字段,读取出来是乱码,就要记得设置mysql里你的字段的字符编码用utf8,这个世界最通用的字符编码格式!

conn = New MySql.Data.MySqlClient.MySqlConnection(connStr)

conn.Open

Dim mda1 As New MySql.Data.MySqlClient.MySQLDataAdapter("SE LECT * from po" , conn) '这里可以设置你的查询语句

Dim ds1 As New System.Data.DataSet()

mda1.Fill(ds1, "TableTemp1") 'MySQLDataAdapter方法把数据放到一个新建的临时表里,这个临时表名可自定义,我这里写TableTemp

e.form.controls("Table1").Table.DataSource = ds1.Tables("TableTemp1") '把刚才的临时表TableTemp填充到我们的控件Table1里

conn.close

请问这个mysql链接读取，在窗口中的读取内存不会释放，有没有办法可以对这个内存进行释放，测试了gc.collect()没有效果。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/5 11:58:00 [只看该作者]

试试

Dim conn As MySql.Data.MySqlClient.MySqlConnection
Dim cmd As MySql.Data.MySqlClient.MySqlCommand
Dim connStr As String = "server=192.168.1.1; port=3301; user id=root; password=root ; database=test;CharSet=utf8" '设置你的数据库连接字符串,注意我设置了字符编码为utf8,如果你的mysql里有中文字段,读取出来是乱码,就要记得设置mysql里你的字段的字符编码用utf8,这个世界最通用的字符编码格式!
conn = New MySql.Data.MySqlClient.MySqlConnection(connStr)
conn.Open
Using mda1 = New MySql.Data.MySqlClient.MySQLDataAdapter("SE LECT * from po" , conn) '这里可以设置你的查询语句
Dim ds1 As New System.Data.DataSet()
mda1.Fill(ds1, "TableTemp1") 'MySQLDataAdapter方法把数据放到一个新建的临时表里,这个临时表名可自定义,我这里写TableTemp
e.form.controls("Table1").Table.DataSource = ds1.Tables("TableTemp1") '把刚才的临时表TableTemp填充到我们的控件Table1里
conn.close
End Using

z769036165

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：760 积分：5430 威望：0 精华：0 注册：2012/10/5 21:53:00

Post By：2018/9/5 13:09:00 [只看该作者]

还是一样的

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/5 15:01:00 [只看该作者]

Dim conn As MySql.Data.MySqlClient.MySqlConnection
Dim cmd As MySql.Data.MySqlClient.MySqlCommand
Dim connStr As String = "server=192.168.1.1; port=3301; user id=root; password=root ; database=test;CharSet=utf8" '设置你的数据库连接字符串,注意我设置了字符编码为utf8,如果你的mysql里有中文字段,读取出来是乱码,就要记得设置mysql里你的字段的字符编码用utf8,这个世界最通用的字符编码格式!
conn = New MySql.Data.MySqlClient.MySqlConnection(connStr)
conn.Open
Dim mda1 As New MySql.Data.MySqlClient.MySQLDataAdapter("SE LECT * from po" , conn) '这里可以设置你的查询语句
Dim ds1 As New System.Data.DataSet()
mda1.Fill(ds1, "TableTemp1") 'MySQLDataAdapter方法把数据放到一个新建的临时表里,这个临时表名可自定义,我这里写TableTemp
e.form.controls("Table1").Table.DataSource = ds1.Tables("TableTemp1") '把刚才的临时表TableTemp填充到我们的控件Table1里
conn.close
vars("mda") = mda1
vars("ds") = ds1

-----关闭窗口之后

vars("mda").dispose
vars("mda") = Nothing
vars("ds").dispose
vars("ds") = Nothing
gc.Collect