Как изменить новые столбцы в таблице по элементам из ListBox - PullRequest
Новая
       67

Как изменить новые столбцы в таблице по элементам из ListBox

0 голосов
/ 16 февраля 2020

У меня есть база данных отлично работала в MS Access 2010 с кодом, который изменяет новые поля в таблице, все это из ListBox элементов, которые заполняются из другой таблицы с помощью кода пользователя ниже: 

Sub AlterTableX()
   Dim intLoop As Integer
   Dim strSQL As String
   Dim strSQL1 As String
   For intLoop = 0 To Me.field_row.ListCount - 1
   strSQL = "ALTER TABLE Emp_Sal ADD " & _
   Me.field_row.Column(0, [intLoop]) & "  LONG INTEGER"
   CurrentProject.Connection.Execute strSQL
   strSQL1 = "ALTER TABLE tbl_General ADD " & _
   Me.field_row.Column(0, [intLoop]) & "  LONG INTEGER"
   CurrentProject.Connection.Execute strSQL1
   Next intLoop
'  MsgBox "Success Adding Columns", vbOKOnly, "Success"
End Sub

Ну, теперь я хочу преобразовать этот код VBA в VB. NET 2012

Мне нужна ваша помощь.

1 Ответ

0 голосов
/ 17 февраля 2020

Если вы просто хотите выполнить те же команды в VB. NET, попробуйте что-то вроде этого. Это должно помочь вам начать, но лучше прочитать ADO. NET, как указано в комментариях 

    Using SqlCMD As New OleDb.OleDbCommand()
        SqlCMD.Connection = CurrentProject.Connection
        Try
            SqlCMD.Connection.Open()
            For intLoop As Integer = 0 To Me.field_row.ListCount - 1
                SqlCMD.CommandText = "ALTER TABLE Emp_Sal ADD " & Me.field_row.Column(0, [intLoop]) & "  LONG INTEGER"
                SqlCMD.ExecuteNonQuery()
                SqlCMD.CommandText = "ALTER TABLE tbl_General ADD " & Me.field_row.Column(0, [intLoop]) & "  LONG INTEGER"
                SqlCMD.ExecuteNonQuery()
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message, "ERROR ALTERING TABLE")
        Finally
            SqlCMD.Connection.Close()
        End Try
    End Using
...