Dim file As FileInfo = New FileInfo(Path.G etFullPath("Tex tFile1.txt"))
Dim backupScript As String = file.OpenText.R eadToEnd()
Dim strCommand As String = backupScript
Dim strConnection As String = "Provider=IBMDA DB2;DSN=evaidya ;UID=db2admin;P WD=tatya;"
Dim DBConnection As OleDbConnection = New OleDbConnection (strConnection)
Dim cmdSoftware As New OleDbCommand(ba ckupScript, DBConnection)
DBConnection.Op en()
cmdSoftware.Exe cuteNonQuery()
Dim backupScript As String = file.OpenText.R eadToEnd()
Dim strCommand As String = backupScript
Dim strConnection As String = "Provider=IBMDA DB2;DSN=evaidya ;UID=db2admin;P WD=tatya;"
Dim DBConnection As OleDbConnection = New OleDbConnection (strConnection)
Dim cmdSoftware As New OleDbCommand(ba ckupScript, DBConnection)
DBConnection.Op en()
cmdSoftware.Exe cuteNonQuery()
Comment