Developing.ru

Код: Выделить всё

Код:
    Public Function AddOrUpdateRecord(ByVal sql_strings() As String) As Integer()
        Dim result = New Integer() {-1}
        Dim i As Integer
        Try
            conn.ConnectionString = ConnectionString 'создаём подключение
            conn.Open() 'открываем базу данных
            StatusConnection = "Connection State::" & conn.State.ToString 'строка состояния
            For i = 0 To sql_strings.Count - 1
                myCommand.CommandText = sql_strings(i)
                myCommand.ExecuteNonQuery()
'Redim Preserve result(i)
'вот сюда наверное что-то нужно добавить, да?            
'result(i) = тут должен быть ID записи
Next i
        Catch odbc_ex As OdbcException
            MessageBox.Show(odbc_ex.Message, "ConnectionDataBase.OdbcException")
            MessageBox.Show(myCommand.CommandText)
            StatusConnection = odbc_ex.ToString
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "ConnectionDataBase.Exception")
            StatusConnection = ex.ToString
        Finally
            reader.Close()
            conn.Close()
        End Try
        Return result
    End Function