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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → VB.NET如何转狐表？

共有1218人关注过本帖树形打印复制链接主题：VB.NET如何转狐表？

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

VB.NET如何转狐表？ 发帖心情

Post By：2024/9/27 9:42:00 [只看该作者]

Imports MySql.Data.MySqlClient

Imports Newtonsoft.Json

Imports System.IO

Module Module1

Sub Main()

Dim config As String = File.ReadAllText("config.json")

Dim configData As ConfigData = JsonConvert.DeserializeObject(Of ConfigData)(config)

Dim connStr As String = $"serve-r={configData.server};user={configData.user};password={configData.password};database={configData.database}"

Using conn As New MySqlConnection(connStr)

conn.Open()

Dim backupSql As String = "BACKUP DATABASE your_database TO DISK = 'AA.sql'"

Using cmd As New MySqlCommand(backupSql, conn)

cmd.ExecuteNonQuery()

End Using

End Sub

Public Class ConfigData

Public Property server As String

Public Property user As String

Public Property password As String

Public Property database As String

End Class

End Module

有点蓝

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

加好友

发短信

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

Post By：2024/9/27 10:17:00 [只看该作者]

全局代码

Public Class ConfigData

Public Property server As String

Public Property user As String

Public Property password As String

Public Property database As String

End Class

按钮

Dim config As String = Filesys.ReadAllText("config.json")

Dim configData As ConfigData = Newtonsoft.Json.JsonConvert.DeserializeObject(Of ConfigData)(config)

Dim connStr As String = cexp("serve-r={0};user={1};password={2};database={3}",configData.server,configData.user,configData.password,configData.database)

Using conn As New MySql.Data.MySqlClient.MySqlConnection(connStr)

conn.Open()

Dim backupSql As String = "BACKUP DATABASE your_database TO DISK = 'AA.sql'"

Using cmd As New MySql.Data.MySqlClient.MySqlCommand(backupSql, conn)

cmd.ExecuteNonQuery()

End Using

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2024/9/27 13:30:00 [只看该作者]

按键代码

Dim config As String = Filesys.ReadAllText("config.json")

Dim configData As ConfigData = Newtonsoft.Json.JsonConvert.DeserializeObject(Of ConfigData)(config)

Dim connStr As String = cexp("serve-r={0};user={1};password={2};database={3}", configData.server, configData.user, configData.password, configData.database)

Using conn As New MySql.Data.MySqlClient.MySqlConnection(connStr)

conn.Open()

Dim backupSql As String = "BACKUP DATABASE your_database TO DISK = 'D:\BF\t03-2024-9-27.sql'"

Using cmd As New MySql.Data.MySqlClient.MySqlCommand(backupSql, conn)

cmd.ExecuteNonQuery()

End Using

报错：

Authentication to host '' for user '' using method 'mysql_native_password' failed with message: Access denied for user ''@'fe80::3bb8:b5f1:fce2:6b0b%5' (using password: NO)

说明：config.json是MYSQL加密的连配置

问题一：上面报错是不是config.json有加密，这里没解密？还是没有指定config.json的文件指定的路径？如何解决？

问题二：上面如何加下面异常代码，进行异常处理？

Try

' proc.Start()

' proc.StandardInput.Flush()

' proc.StandardInput.Close()

' ' 等待进程执行完成

' proc.WaitForExit()

' ' 检查退出代码以确认是否成功

' If proc.ExitCode <> 0 Then

' MessageBox.Show("备份失败，请检查错误输出。")

' Else

' MessageBox.Show("备份成功!")

' End If

' Catch ex As Exception

' MessageBox.Show("备份过程中发生错误: " & ex.Message)

' End Try

[此贴子已经被作者于2024/9/27 13:30:22编辑过]

有点蓝

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

加好友

发短信

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

Post By：2024/9/27 13:42:00 [只看该作者]

1、1楼提供的代码里没有解密的用法

2、参考：http://www.foxtable.com/webhelp/topics/2070.htm

[此贴子已经被作者于2024/9/27 13:42:23编辑过]

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2024/9/27 14:10:00 [只看该作者]

1、1楼提供的代码里没有解密的用法

报错：

Authentication to host '' for user '' using method 'mysql_native_password' failed with message: Access denied for user ''@'fe80::3bb8:b5f1:fce2:6b0b%5' (using password: NO)

说明：config.json是MYSQL加密的连配置与不加密的连配置都一样上面报错，如何解决？

有点蓝

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

加好友

发短信

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

Post By：2024/9/27 14:13:00 [只看该作者]

和代码无关。提示用户或者密码错误，无法连接数据库

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2024/9/27 14:23:00 [只看该作者]

config.json与狐表能正常连接，上面的代码怎么连连不到？是上面代码读不了config.json的文件？如何解决？

有点蓝

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

加好友

发短信

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

Post By：2024/9/27 14:33:00 [只看该作者]

config.json里面是什么内容？

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2024/9/27 14:59:00 [只看该作者]

1.调试:

Dim connStr As String = cexp("serve-r={0};user={1};password={2};database={3}", configData.server, configData.user, configData.password, configData.database)

msgbox(connStr) '调试用

Using conn As New MySql.Data.MySqlClient.MySqlConnection(connStr)

msgbox(3) '调试用

conn.Open()

msgbox(4) '调试用

报错：

Authentication to host '' for user '' using method 'mysql_native_password' failed with message: Access denied for user ''@'fe80::3bb8:b5f1:fce2:6b0b%5' (using password: NO)

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2024/9/27 14:59:00 [只看该作者]

2.1config.json无加密

{

"dbSettings": {

"defaultConnection": "ts",//

"connectionStrings": [

{

"name": "ts",

"type": "mysql",

"connectionString": "serve-r=127.0.0.1;user id=MYSQL;password=123456;database=ts;sslmode=none"

}

2.1config.json加密

2.2

{

"dbSettings": {

"defaultConnection": "ts",//

"connectionStrings": [

{

"name": "ts",

"type": "mysql",

"connectionString": "serve-r=加密;sslmode=none"

}

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

总数 18 1 2 下一页

主题：VB.NET如何转狐表？