Job submit

Question

Hi all,
i am trying to submit a oracle job using the following code but i am getting the oracle error PLS-00103. when i put this sql statement in a textfile and run it with a batchfile it goes well. can anybody give me some advise.
Imports Oracle.DataAccess.Client
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cn As New OracleConnection("Data Source=test;" & "User Id=myusername;" & "Password=mypassword;")
Try
Dim sql As String = ("declare " & _
"jobnr number(10); " & _
"instnr number(10); " & _
"begin" & _
"select instance_number into instnr from v$instance;" & _
"dbms_job.submit(jobnr,'insert into system.job_logging(''system'',sysdate,''22:00'',''select name from v$database;'');'," & _
"trunc(sysdate+1)+(22+00/60)/24," & _
"'trunc(least(next_day(sysdate,''TUESDAY''),next_day(sysdate,''WEDNESDAY''),next_day(sysdate,''THURSDAY''),next_day(sysdate,''FRIDAY''),next_day(sysdate,''SATURDAY'')))+(22+00/60)/24',true,instnr);" & _
"commit;" & _
"end;")
Dim cmd As New OracleCommand(sql, cn)
cmd.Connection.Open()
Dim result As String = cmd.ExecuteNonQuery()
cmd.Connection.Close()
If result = 0 Then
MessageBox.Show("no job submitted")
Else
MessageBox.Show("succesfully submitted job")
End If
Catch ex As Exception
MessageBox.Show("error' " & ex.Message)
If cn.State = ConnectionState.Open Then
cn.Close()
End If
End Try
End Sub
End Class
kind regards,
bryan

Answer 1

Hi,
i checked the code again and removed the "(" befor begin and at the end. here is the code again. I ran the code with sqlplus again offcourse without the " and the & or + _ around the code, because this is vb, against the datasource and the plsql procedure succeeded. when i run this code in vb i keep getting the following error:
ora-6550: line 1, column 74:
pls-00103: encountered the symbol "INTO" when expecting one of the following:
:= .(@ % ; not null range default character.
i hope you can help me out with this problem.
Imports Oracle.DataAccess.Client
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cn As New OracleConnection("Data Source=test;" & "User Id=myusername;" & "Password=mypassword;")
Try
Dim sql As String = "declare " + _
"jobnr number(10); " + _
"instnr number(10); " + _
"begin" + _
"select instance_number into instnr from v$instance;" + _
"dbms_job.submit(jobnr,'insert into system.job_logging(''system'',sysdate,''22:00'',''select name from v$database;'');'," + _
"trunc(sysdate+1)+(22+00/60)/24," + _
"'trunc(least(next_day(sysdate,''TUESDAY''),next_day(sysdate,''WEDNESDAY''),next_day(sysdate,''THURSDAY''),next_day(sysdate,''FRIDAY''),next_day(sysdate,''SATURDAY'')))+(22+00/60)/24'," + _
"true," + _
"instnr" + _
");" + _
"commit;" + _
"end;" + _
Dim cmd As New OracleCommand(sql, cn)
cmd.Connection.Open()
Dim result As String = cmd.ExecuteNonQuery()
cmd.Connection.Close()
If result = 0 Then
MessageBox.Show("no job submitted")
Else
MessageBox.Show("succesfully submitted job")
End If
Catch ex As Exception
MessageBox.Show("error' " & ex.Message)
If cn.State = ConnectionState.Open Then
cn.Close()
End If
End Try
End Sub
End Class
kind regards,
bryan