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

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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：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")

有点蓝

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

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：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有没有数据

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

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