Member 14062968 Ответов: 1

Как я могу исправить ошибку: не удалось найти устанавливаемый ISAM?


<pre> If Sender_s_AddressTextBox.Text = "" Or Sender_s_NameTextBox.Text = "" Or
            Sender_s_IDTextBox.Text = "" Or Sender_s_Contact_NumberTextBox.Text = "" Or Receiver_s_NameTextBox.Text = "" Or
            Receiver_s_IDTextBox.Text = "" Or Receiver_s_AddressTextBox.Text = "" Or Receiver_s_Contact_NumberTextBox.Text = "" Or txttotalamount.Text = "" Then
            MsgBox("Please complete the information needed.")

        ElseIf Sender_s_AddressTextBox.Text = Text And Sender_s_NameTextBox.Text = Text And Sender_s_IDTextBox.Text = Text And
            Sender_s_Contact_NumberTextBox.Text = Text And Receiver_s_NameTextBox.Text = Text And Receiver_s_IDTextBox.Text = Text And
            Receiver_s_Contact_NumberTextBox.Text = Text And Receiver_s_AddressTextBox.Text = Text And
            txttotalamount.Text = Text Then
            MsgBox("Transaction has been processed.")

        End If
        Try
            cmd = New OleDb.OleDbCommand
            With cmd
                .Connection = con
                .CommandType = CommandType.Text
                .CommandText = "INSERT INTO tblSender (Sender’s Name,Sender's ID, Sender's Contact Number, Sender's Address)
            VALUES (@Sender’s Name,@Sender's ID,@Sender's Contact Number,@Sender's Address)"
                .CommandText = "INSERT INTO tblReceiver (Receiver's Name, Receiver's Contact Number, Receiver's ID, Receiver's Address)
            VALUES (@Receiver's Name, @Receiver's Contact Number, @Receiver's ID, @Receiver's Address )"

                .Parameters.Add(New System.Data.OleDb.OleDbParameter("@Sender’s Name ", System.Data.OleDb.OleDbType.VarChar, 255, Me.Sender_s_NameTextBox.Text))
                .Parameters.Add(New System.Data.OleDb.OleDbParameter("@Sender's ID ", System.Data.OleDb.OleDbType.VarChar, 255, Me.Sender_s_IDTextBox.Text))
                .Parameters.Add(New System.Data.OleDb.OleDbParameter("@Sender's Contact Number ", System.Data.OleDb.OleDbType.VarChar, 255, Me.Sender_s_Contact_NumberTextBox.Text))
                .Parameters.Add(New System.Data.OleDb.OleDbParameter("@Sender's Address ", System.Data.OleDb.OleDbType.VarChar, 255, Me.Sender_s_AddressTextBox.Text))

                .Parameters.Add(New System.Data.OleDb.OleDbParameter("@Receiver's Name ", System.Data.OleDb.OleDbType.VarChar, 255, Me.Receiver_s_NameTextBox.Text))
                .Parameters.Add(New System.Data.OleDb.OleDbParameter("@Receiver's ID ", System.Data.OleDb.OleDbType.VarChar, 255, Me.Receiver_s_IDTextBox.Text))
                .Parameters.Add(New System.Data.OleDb.OleDbParameter("@Receiver's Contact Number ", System.Data.OleDb.OleDbType.VarChar, 255, Me.Receiver_s_Contact_NumberTextBox.Text))
                .Parameters.Add(New System.Data.OleDb.OleDbParameter("@Receiver's Address ", System.Data.OleDb.OleDbType.VarChar, 255, Me.Receiver_s_AddressTextBox.Text))

                ' RUN THE COMMAND
                cmd.Parameters("@Sender’s Name ").Value = Me.Sender_s_NameTextBox.Text
                cmd.Parameters("@Sender's ID ").Value = Me.Sender_s_IDTextBox.Text
                cmd.Parameters("@Sender's Contact Number ").Value = Me.Sender_s_Contact_NumberTextBox.Text
                cmd.Parameters("@Sender's Address ").Value = Me.Sender_s_AddressTextBox.Text

                cmd.Parameters("@Receiver's Name ").Value = Me.Receiver_s_NameTextBox.Text
                cmd.Parameters("@Receiver's ID ").Value = Me.Receiver_s_IDTextBox.Text
                cmd.Parameters("@Receiver's Contact Number ").Value = Me.Receiver_s_Contact_NumberTextBox.Text
                cmd.Parameters("@Receiver's Address ").Value = Me.Receiver_s_AddressTextBox.Text

                con = New System.Data.OleDb.OleDbConnection()
                con.ConnectionString = "Provider= Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\common\Documents\Database2.accdb;Integrated
 Security=SSPI;User Instance=True"
                con.Open()
                cmd.ExecuteNonQuery()
                con.Close()
                Exit Sub
            End With
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try


Что я уже пробовал:

закодируй кучу кодов и ничего не получится

Richard Deeming

NB: В именах параметров не может быть пробелов или специальных символов.

Если в именах столбцов есть пробелы или специальные символы, их необходимо заключить в квадратные скобки. Однако было бы лучше переименовать ваши столбцы так, чтобы они содержали только буквенно-цифровые символы.

"INSERT INTO tblSender ([Sender’s Name], [Sender's ID], [Sender's Contact Number], [Sender's Address])
VALUES (@SendersName, @SendersID, @SendersContactNumber, @SendersAddress)"


Кроме того, вы перезаписываете текст команды сразу же после ее установки, поэтому в нее никогда ничего не будет вставлено. tblSender стол. Вам нужно выполнить эти две команды отдельно.

1 Ответов

Рейтинг:
0