MYSQL
Dim _key1 As String = "12345678901234567890123456789012"
Dim _key2 As String = "0987654321098765"
Dim et As String = HySq-l.DB.EncryptConnectionString("Data Source = =127.0.0.1;user id=root;password=123;database=t33;sslmode=none;", _key1, _key2)
msgbox(et)
Dim pt As String = HySq-l.DB.DecryptConnectionString(et, _key1, _key2)
msgbox(pt)
{
"name": "t33",
"type": "mysql",
"connectionString": "server=33DEB7B89B104A7D0DC7E4ABDB8648093CF2B379E09B66C4BC96C041D0887526820F908CCD390EC191ACE8125A4859732106A7E564D2F56BDD173C9419CAFCFFCFDE6572A7E510835A1C8F8577150CC120F8E5689EC14877DF7EFA74673FD340"
},
{
"name": "t33",
"type": "mysql",
"connectionString": "33DEB7B89B104A7D0DC7E4ABDB8648093CF2B379E09B66C4BC96C041D0887526820F908CCD390EC191ACE8125A4859732106A7E564D2F56BDD173C9419CAFCFFCFDE6572A7E510835A1C8F8577150CC120F8E5689EC14877DF7EFA74673FD340"
},
执行报错:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:窗口,学生表窗口,AfterLoad
详细错误信息:
解析连接字符串出错,请检查配置文件以及密钥。
输入字符串的格式不正确。
Foxtable命令窗口,进行检查加密,解密都正常,但执行报上面的错,如何解决?
![图片点击可在新窗口打开查看]()
![图片点击可在新窗口打开查看]()
[此贴子已经被作者于2024/3/8 9:34:31编辑过]
1、多了一个=号
Dim et As String = HySq-l.DB.EncryptConnectionString("Data Source = =127.0.0.1;user id=root;password=123;database=t33;sslmode=none;", _key1, _key2)
2、正确用法
{
"name": "t33",
"type": "mysql",
"connectionString": "33DEB7B89B104A7D0DC7E4ABDB8648093CF2B379E09B66C4BC96C041D0887526820F908CCD390EC191ACE8125A4859732106A7E564D2F56BDD173C9419CAFCFFCFDE6572A7E510835A1C8F8577150CC120F8E5689EC14877DF7EFA74673FD340"
},
Dim et As String = HySq-l.DB.EncryptConnectionString("Data Source = 127.0.0.1;user id=root;password=123;database=t33;sslmode=none;", _key1, _key2)
改后,重新取加密,更改后,重启服务,执行报下面错:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:窗口,学生表窗口,AfterLoad
详细错误信息:
未将对象引用设置到对象的实例。
我用不加密测试,正常执行,加密后,不能正常执行
http://www.foxtable.com/webhelp/scr/1485.htm
HTTP 错误 404.0 - Not Found
您要找的资源已被删除、已更名或暂时不可用。
Dim key1 As String = "12345678901234567890123456789012"
Dim key2 As String = "0987654321098765"
Dim db As HySql.Database = HySql.DataBaseFactory.CreateDatabase(key1, key2)
MessageBox.Show(1)
'MessageBox.Show(db)
Dim db2 As HySql.Database = HySql.DataBaseFactory.CreateDatabase("t33", key1, key2)
MessageBox.Show(2)
'MessageBox.Show(db2)
Dim Sql = "selec-t * from t1 ;"
Dim dt As system.data.DataTable = db.ExecuteDataSet(Sql).Tables(0)
dt.TableName = "t1"
Dim t As Table = e.Form.Controls("Table1").Table
MessageBox.Show(3)
执行后,仅报错,下面提示
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:窗口,学生表窗口,AfterLoad
详细错误信息:
未将对象引用设置到对象的实例。
Dim key1 As String = "12345678901234567890123456789012"
MessageBox.Show(1)
Dim key2 As String = "0987654321098765"
MessageBox.Show(2)
Dim db As HySql.Database = HySql.DataBaseFactory.CreateDatabase(key1, key2)
MessageBox.Show(3)
Dim db2 As HySql.Database = HySql.DataBaseFactory.CreateDatabase("t33", key1, key2)
MessageBox.Show(4)
Dim db As HySql.Database = HySql.DataBaseFactory.CreateDatabase(key1, key2)
MessageBox.Show(3)
Dim db2 As HySql.Database = HySql.DataBaseFactory.CreateDatabase("t33", key1, key2)
MessageBox.Show(4)
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:窗口,学生表窗口,AfterLoad
详细错误信息:
未将对象引用设置到对象的实例。