26 lines
911 B
VB.net
26 lines
911 B
VB.net
Imports System.IO
|
|
Public Class frmSQLCript
|
|
Private Sub tsbtnSave_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
|
|
Dim fileno1 As Integer = 1
|
|
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
|
|
If OpenFileDialog1.FileName <> "" Then
|
|
Try
|
|
TextBox1.Text = System.IO.File.ReadAllText(OpenFileDialog1.FileName)
|
|
Catch ex As Exception
|
|
' Let the user know what went wrong.
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
|
Dim db As New clsDB
|
|
db.Exec_SQL(Me.TextBox1.Text)
|
|
End Sub
|
|
|
|
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
|
|
Me.Close()
|
|
End Sub
|
|
End Class |