以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]想问下,链接MySQL数据库获取数据怎么弄?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159613)

--  作者:zto001
--  发布时间:2020/12/31 22:09:00
--  [求助]想问下,链接MySQL数据库获取数据怎么弄?
[求助]想问下,链接MySQL数据库获取数据怎么弄?
--  作者:zto001
--  发布时间:2020/12/31 22:35:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105771
我用这个做的时候,读取的代码写成:
Dim conn As MySql.Data.MySqlClient.MySqlConnection
Dim cmd As MySql.Data.MySqlClient.MySqlCommand
\'1.mysql环境,我是本地的mysql数据库,数据库名是test,账号是root,密码是root,,数据库里有1个表,叫T1,里面有2列,列名分别是  Col1  Col2


Dim connStr As String = "server=rm-bp1m4fy8d66u3c6xmbo.mysql.rds.aliyuncs.com; port=3306; user id=cli_11620524; password=8dee638ea2366e0e; database=cli_11620524;CharSet=utf8" \'设置你的数据库连接字符串
conn = New MySql.Data.MySqlClient.MySqlConnection(connStr)
conn.Open

Dim mda As New MySql.Data.MySqlClient.MySQLDataAdapter("select * from t1" , 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


提示错误

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.5.29.8
错误所在事件:窗口,窗口1,Button1,Click
详细错误信息:
Table \'cli_11620524.t1\' doesn\'t exist


是哪里有错?

主机地址:rm-bp1m4fy8d66u3c6xmbo.mysql.rds.aliyuncs.com
端口:3306
数据库:cli_11620524
用户名:cli_11620524
密码:8dee638ea2366e0e
[此贴子已经被作者于2020/12/31 22:35:39编辑过]

--  作者:zto001
--  发布时间:2021/1/4 13:02:00
--  
求助哈


--  作者:有点蓝
--  发布时间:2021/1/4 14:30:00
--  
建立的表格权限设置有问题,cli_11620524没有权限访问t1这个表。至于怎么设置,我也不知道,请百度
--  作者:zto001
--  发布时间:2021/1/4 16:24:00
--  
我如何获取mysql里有哪些表名称?
--  作者:有点蓝
--  发布时间:2021/1/4 17:02:00
--  
百度
--  作者:zto001
--  发布时间:2021/1/8 11:23:00
--  
select table_name from information_schema.tables where table_schema=\'当前数据库\'


Dim mda As New MySql.Data.MySqlClient.MySQLDataAdapter("select * from t1" , conn) \'这里可以设置你的查询语句

用上面这段文字替换红色区域就行了是吗?

--  作者:有点蓝
--  发布时间:2021/1/8 11:44:00
--  
替换sql
Dim mda As New MySql.Data.MySqlClient.MySQLDataAdapter("select * from t1" , conn) 
--  作者:zto001
--  发布时间:2021/1/8 12:02:00
--  
表名怎么返回?


--  作者:有点蓝
--  发布时间:2021/1/8 12:11:00
--  
看2楼代码