Foxtable(狐表)用户栏目专家坐堂 → 代码失效,如何解决?


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

主题:代码失效,如何解决?

帅哥哟,离线,有人找我吗?
lin98
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1074 积分:7110 威望:0 精华:0 注册:2020/11/4 22:15:00
代码失效,如何解决?  发帖心情 Post By:2024/3/11 9:37:00 [只看该作者]

Dim Proc As New Process 
proc.StartInfo.FileName = "cmd.exe"
proc.StartInfo.CreateNoWindow = True
proc.StartInfo.WorkingDirectory = "D:\MY\bin"
MsgBox(0)
proc.StartInfo.UseShellExecute = False
proc.StartInfo.RedirectStandardInput = True
proc.StartInfo.RedirectStandardOutput = True
proc.StartInfo.RedirectStandardError = True
proc.Start()
'proc.Standardlnput.WriteLine("mysql -uroot -proot")
MsgBox(1)
proc.StandardInput.WriteLine("t33")
MsgBox(2)
Dim s As String = FileSys.ReadAllText("D:\BF\t33-5.sql")
For Each s1 As String In s.replace(vbcr, "").split(vblf)
   proc.StandardInput.WriteLine(s1)
Next
proc.Close()
MsgBox(3)

上面代码:还原MYSQL数据库,执行没报错,但也没有还原,如何解决?
[此贴子已经被作者于2024/3/11 16:27:26编辑过]

 回到顶部