以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  mysql问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177982)

--  作者：fox-man --  发布时间：2022/6/13 17:39:00 --  mysql问题 Dim conn As MySql.Data.MySqlClient.MySqlConnection Dim cmd As MySql.Data.MySqlClient.MySqlCommand Dim connStr As String = "server=127.0.0.1; port=3306; user id=root; password=root ; database=default;CharSet=utf8" \'设置你的数据库连接字符串,注意我设置了字符编码为utf8,如果你的mysql里有中文字段,读取出来是乱码,就要记得设置mysql里你的字段的字符编码用utf8,这个世界最通用的字符编码格式! conn = New MySql.Data.MySqlClient.MySqlConnection(connStr) conn.Open Dim mda As New MySql.Data.MySqlClient.MySQLDataAdapter("sele ct * from ab" , 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里 conn.close 这样获取的表，所有列都使用右键"选择"快捷菜单时显示空白,实际是有数据值的. 此主题相关图片如下：sq.png [此贴子已经被作者于2022/6/13 17:38:53编辑过]