Hi all
I am getting an error of "expression expected" when calling the sub func. Any help appre.?
I am getting an error of "expression expected" when calling the sub func. Any help appre.?
Code:
References Devart.Data.Oracle.dll
References Devart.Data.dll
References System.Data.dll
Imports Devart.Data.Oracle
Imports Devart.Data
Imports System.Data
Public Sub TSTIDM_UNSGroup_Import_Humanist_IDM_Auto_RM_N()
Dim sqlConnection As New System.Data.SqlClient.SqlConnection("Data Source=;Initial Catalog=;User ID=;Password=;Pooling=False;Encrypt=True;TrustServerCertificate=True")
sqlConnection.Open()
'filling SQL data into datatable
Dim dt As New DataTable
Dim adp As New System.Data.SqlClient.SqlDataAdapter("SELECT top 2 [System_Name],[Role_Name],[Role_Value],[Description] FROM [system_and_role_export]", sqlConnection)
adp.Fill(dt)
Dim oracleConnection As New System.Data.OleDb.OleDbConnection("Provider=msdaora;Data Source=;User Id=;Password=;")
oracleConnection.Open()
Dim oracleCommand = oracleConnection.CreateCommand()
Dim retValue As String =""
oracleCommand.CommandText = "insert into idm.system_and_role_export (System_Name, Role_Name,Role_Value,Description) values (?,?,?,?)"
For Each row As DataRow In dt.Rows
Dim sqlst As String ="select count(*) from idm.system_and_role_export where System_Name='" & row("System_Name").ToString & "' and Role_Value='" & row("Role_Value").ToString & "'"
retValue = Call CreateMyOleDbCommand_(sqlst)
'myOrclCommand.Connection.Open()
'Dim retValue As Integer
'retValue = oracleCommand.ExecuteNonQuery
If retValue = "0" Then
oracleCommand.Parameters.Clear()
oracleCommand.Parameters.AddWithValue("@System_Name", row("System_Name").ToString)
oracleCommand.Parameters.AddWithValue("@Role_Name", row("Role_Name").ToString)
oracleCommand.Parameters.AddWithValue("@Role_Value", "zxcv")
oracleCommand.Parameters.AddWithValue("@Description", row("Description").ToString)
oracleCommand.ExecuteNonQuery()
End If
Next
sqlConnection.Close()
oracleConnection.Close()
End Sub
Public Sub CreateMyOleDbCommand_(queryString As String)
Dim oracleConnection_ As New System.Data.OleDb.OleDbConnection("Provider=msdaora;Data Source=;User Id=;Password=;")
oracleConnection_.Open()
Dim oracleCommand_ = oracleConnection_.CreateCommand()
oracleCommand_.CommandText = queryString.ToString()
oracleCommand_.ExecuteScalar()
oracleConnection_.Close()
End Sub