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


  共有1213人关注过本帖树形打印复制链接

主题：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 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
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
    
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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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加密的连配置与不加密的连配置都一样上面报错，如何解决？
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/9/27 14:23:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/9/27 14:59:00 [显示全部帖子]

2.
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"

  },
}
}
}
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/9/27 15:00: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) '调试用

此主题相关图片如下：mysql.png
按此在新窗口浏览图片
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/9/27 15:36:00 [显示全部帖子]

个config.json的内容和1楼的代码根本都没有什么关系，不可能解析的到内容的？
那要如何写与1楼代码相关又能解析的到内容？
[此贴子已经被作者于2024/9/27 15:36:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/9/27 16:23:00 [显示全部帖子]

Using conn As New MySql.Data.MySqlClient.MySqlConnection(connStr) 
    Try
        conn.Open() ' 打开连接
        Dim backupSql As String = "BACKUP DATABASE ts TO DISK = 'D:\BF\ts-2024-9-27.sql'"
        Using cmd As New MySql.Data.MySqlClient.MySqlCommand(backupSql, conn)
            cmd.ExecuteNonQuery()
            MessageBox.Show("备份成功!") 
        End Using

        Catch ex As Exception  
        ' 处理异常
        MessageBox.Show("备份过程中发生错误: " & ex.Message) 
    Finally
        conn.Close() ' 确保关闭连接
    End Try
End Using

红代码报错如图，如何处理？

图片点击可在新窗口打开查看此主题相关图片如下：mysql-2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/9/27 16:55:00 [显示全部帖子]

是网上搜，MySql做备份，不是SqlServer的，报错上面的错，不知道怎么，网上搜不到？

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 5 次数据查询