访问MySQL如何读取数据？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 访问MySQL如何读取数据？

共有3151人关注过本帖树形打印复制链接主题：访问MySQL如何读取数据？

l20j07

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

加好友

发短信

等级：婴狐帖子：41 积分：437 威望：0 精华：0 注册：2017/2/6 0:34:00

访问MySQL如何读取数据？ 发帖心情

Post By：2017/5/19 18:14:00 [只看该作者]

MySqlDataReader返回的数据是什么东西？如何写到表格里面？我用总是显示sdr[0]无法转换为字符串！！！！

此主题相关图片如下：捕获.png

有点蓝

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

加好友

发短信

等级：超级版主帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/19 20:31:00 [只看该作者]

参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100450&skin=0

l20j07

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

加好友

发短信

等级：婴狐帖子：41 积分：437 威望：0 精华：0 注册：2017/2/6 0:34:00

Post By：2017/5/19 20:56:00 [只看该作者]

Table("表A").DataSource = cmd.ExecuteReader()

会报错

Tables("表A").DataSource = cmd.ExecuteReader()

没有反应，数据并没有被读出来

有点蓝

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

加好友

发短信

等级：超级版主帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/19 21:12:00 [只看该作者]

Dim conn As MySql.Data.MySqlClient.MySqlConnection

Dim cmd As MySql.Data.MySqlClient.MySqlCommand

Dim dt As DataTable

Dim connStr As String = "server=" + Vars("zw_ip") + "; port=3306; user id=root; password=Aa1234qwer; database=zdjks; Allow Zero Datetime=True"

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

conn.Open

Dim sql = "sele ct adminssionid,cardid from examinee where ordid= '" & oid & "' "

Dim mda As New MySql.Data.MySqlClient.MySQLDataAdapter(sql, conn)

Dim ds As New System.Data.DataSet()

mda.Fill(ds, "table1")

Tables("表A").DataSource = ds.Tables("table1")

l20j07

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

加好友

发短信

等级：婴狐帖子：41 积分：437 威望：0 精华：0 注册：2017/2/6 0:34:00

Post By：2017/5/19 21:25:00 [只看该作者]

还是不行，表A是默认的主表么？ Table1 又是什么？

下面是我的代码

Dim conn As MySql.Data.MySqlClient.MySqlConnection

Dim cmd As MySql.Data.MySqlClient.MySqlCommand

Dim sdr As MySql.Data.MySqlClient.MySqlDataReader

Dim dt As DataTable

Dim ii,jj,kk As Integer

Dim connStr As String = "server=localhost; port=3306; user id=root; password= ; database=mytt"

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

conn.Open

Dim mda As New MySql.Data.MySqlClient.MySQLDataAdapter(e.Form.Controls("TextBox2").text, conn)

Dim ds As New System.Data.DataSet()

mda.Fill(ds, "table1")

Tables("表A").DataSource = ds.Tables("table1")

conn.close()

有点蓝

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

加好友

发短信

等级：超级版主帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/19 21:38:00 [只看该作者]

做个窗口，放一个表控件和一个按钮，按钮事件

Dim conn As MySql.Data.MySqlClient.MySqlConnection

Dim cmd As MySql.Data.MySqlClient.MySqlCommand

Dim sdr As MySql.Data.MySqlClient.MySqlDataReader

Dim dt As DataTable

Dim ii,jj,kk As Integer

Dim connStr As String = "server=localhost; port=3306; user id=root; password= ; database=mytt"

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

conn.Open

Dim mda As New MySql.Data.MySqlClient.MySQLDataAdapter(e.Form.Controls("TextBox2").text, conn)

Dim ds As New System.Data.DataSet()

mda.Fill(ds, "table1")

e.form.controls("Table1").Table.DataSource = ds.Tables("table1")

conn.close()

还不行，检查你sql有没有数据

l20j07

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

加好友

发短信

等级：婴狐帖子：41 积分：437 威望：0 精华：0 注册：2017/2/6 0:34:00

Post By：2017/5/19 21:40:00 [只看该作者]

刚刚试了，现在可以了，就是“表A”的问题，谢谢啦！

下一主题 >> << 上一主题

主题：访问MySQL如何读取数据？