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

Dim conn As MySql.Data.MySqlClient.MySqlConnection
Dim cmd As MySql.Data.MySqlClient.MySqlCommand

Dim connStr As String = "server=localhost; port=3306; user id=root; password=abcd123; database=hn_data;CharSet=utf8" '设置你的数据库连接字符串,注意我设置了字符编码为utf8,如果你的mysql里有中文字段,读取出来是乱码,就要记得设置mysql里你的字段的字符编码用utf8,这个世界最通用的字符编码格式!
conn = New MySql.Data.MySqlClient.MySqlConnection(connStr)
conn.Open

Dim mda As New MySql.Data.MySqlClient.MySQLDataAdapter("s elect * from data" , conn) '这里可以设置你的查询语句
Dim ds As New System.Data.DataSet()
mda.Fill(ds, "TableTemp") 'MySQLDataAdapter方法把数据放到一个新建的临时表里,这个临时表名可自定义,我这里写TableTemp
e.form.controls("Table1").Table.DataSource = ds.Tables("TableTemp") '把刚才的临时表TableTemp填充到我们的控件Table1里

Dim a As DataTable = e.form.controls("Table1").Table.DataTable

MessageBox.Show(a.DataRows.Count)

conn.close

蓝板请教下以上代码使用 MySql.Data 库可以在面板中创建了数据表了

能否不加载窗体的情况下，写入以下临时创建的datatable 呢？求指点下

Dim conn As MySql.Data.MySqlClient.MySqlConnection
Dim cmd As MySql.Data.MySqlClient.MySqlCommand

Dim connStr As String = "server=localhost; port=3306; user id=root; password=aaa; database=hn_data;CharSet=utf8" '设置你的数据库连接字符串,注意我设置了字符编码为utf8,如果你的mysql里有中文字段,读取出来是乱码,就要记得设置mysql里你的字段的字符编码用utf8,这个世界最通用的字符编码格式!
conn = New MySql.Data.MySqlClient.MySqlConnection(connStr)
conn.Open

Dim mda As New MySql.Data.MySqlClient.MySQLDataAdapter("s elect * from data" , conn) '这里可以设置你的查询语句
Dim ds As New System.Data.DataSet()
mda.Fill(ds, "TableTemp") 'MySQLDataAdapter方法把数据放到一个新建的临时表里,这个临时表名可自定义,我这里写TableTemp
'''e.form.controls("Table1").Table.DataSource = ds.Tables("TableTemp") '把刚才的临时表TableTemp填充到我们的控件Table1里

Dim t As Table = ds.Tables("TableTemp")

Dim a As DataTable = t.DataTable

MessageBox.Show(a.DataRows.Count)

conn.close

这样不行，ds 没有这个属性 .

[此贴子已经被作者于2025/2/10 17:11:07编辑过]

篮板我的目的就是想不通过窗体的table 绑定数据

因为没有窗体，想临时创建表，把这个获取的表放到临时的 datatable中去这个

Dim t As system.data.datatable = ds.Tables("TableTemp")

怎么赋值到datatable 呢

篮板那能否在没有窗体的情况下动态创建一个 table 去承载这个表呢

设置为独立窗体先用着，谢谢篮板

Forms("窗口1").Visible = False
Forms("窗口1").Open
Dim conn As MySql.Data.MySqlClient.MySqlConnection
Dim cmd As MySql.Data.MySqlClient.MySqlCommand

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

conn.close

Output.Show(A.DataRowS.Count)

主题：mysql 直接链接 datatable