Теперь у меня есть рабочий код SQL, который вставляет записи в таблицу базы данных (создает среду выполнения), а код приведен ниже ...
Dim cmd As New OleDbCommand("SELECT NewMember.ApplicantName, NewMember.ApplicationNo, NewMember.ProcessingFee, NewMember.IntroducerName, NewMember.IntroducerCode, NewMember.JoiningDate, NewCustomer.ApplicationNo, NewCustomer.PlanName, NewCustomer.AccountNo, NewCustomer.InvestmentAmount, NewCustomer.ProcessingFees, NewCustomer.OpeningDate, Deposit.Date, Deposit.InvestmentAmount Into DDTable FROM NewMember, NewCustomer, Deposit WHERE NewMember.JoiningDate = NewCustomer.OpeningDate AND NewCustomer.OpeningDate = Deposit.Date;", con)
Но недавняя проблема заключается в том, что когда я использую DateTimePicker для выбора любой даты, записи не сохраняются. Все же коды не показывают никакой ошибки! Любая идея, любая помощь?
@ Кристиан Шпехт,
Спасибо, но условие "Где" работает хорошо в моем первом опубликованном коде и в котором оно не работает, здесь
Dim cmd As New OleDbCommand("SELECT NewMember.ApplicantName, (NewMember.ApplicationNo)As MemberApplicationNo, NewMember.ProcessingFee, NewMember.IntroducerName, NewMember.IntroducerCode, NewMember.JoiningDate, NewCustomer.ApplicationNo, NewCustomer.PlanName, NewCustomer.AccountNo, NewCustomer.InvestmentAmount, NewCustomer.ProcessingFees, NewCustomer.OpeningDate, Deposit.Date, (Deposit.InvestmentAmount) As Renewal Into DDTable FROM NewMember, NewCustomer, Deposit WHERE (NewMember.JoiningDate = #" & dtpDates.Text & "#)= (NewCustomer.OpeningDate = #" & dtpDates.Text & "#) And NewCustomer.OpeningDate = (Deposit.Date =#" & dtpDates.Text & "#);", con)
Успешное сообщение, но данные не сохраняются в базе данных (код):
If (con.State = ConnectionState.Closed) Then con.Open()
Dim cmd As New OleDbCommand("SELECT NewMember.ApplicantName, (NewMember.ApplicationNo)As MemberApplicationNo, NewMember.ProcessingFee, NewMember.IntroducerName, NewMember.IntroducerCode, NewMember.JoiningDate, NewCustomer.ApplicationNo, NewCustomer.PlanName, NewCustomer.AccountNo, NewCustomer.InvestmentAmount, NewCustomer.ProcessingFees, NewCustomer.OpeningDate, Deposit.Date, (Deposit.InvestmentAmount) As Renewal Into DDTable FROM NewMember, NewCustomer, Deposit WHERE (NewMember.JoiningDate = #" & dtpDates.Text & "#)= (NewCustomer.OpeningDate = #" & dtpDates.Text & "#) And NewCustomer.OpeningDate = (Deposit.Date =#" & dtpDates.Text & "#);", con)
cmd.ExecuteNonQuery()
MsgBox("Saved Successfully! ", MsgBoxStyle.Information)
con.Close()
Это потому, что я пытаюсь получить результаты = DateTimePicker.value, где время не упоминается, и по умолчанию используется значение ГГГГ-ММ-ДД 00: 00: 00.000. Нужно ли использовать какой-либо знак ‘> или <’ !? Но мне нужно, чтобы Дата была равна дате, выбранной пользователем. </h2>
@ all: вот ответ
Dim cmd As New OleDbCommand("SELECT NewMember.ApplicantName, (NewMember.ApplicationNo)As MemberApplicationNo, NewMember.ProcessingFee, NewMember.IntroducerName, NewMember.IntroducerCode, NewMember.JoiningDate, NewCustomer.ApplicationNo, NewCustomer.PlanName, NewCustomer.AccountNo, NewCustomer.InvestmentAmount, NewCustomer.ProcessingFees, NewCustomer.OpeningDate, Deposit.Date, (Deposit.InvestmentAmount) As Renewal Into DDTable FROM NewMember, NewCustomer, Deposit WHERE NewMember.JoiningDate = NewCustomer.OpeningDate And NewCustomer.OpeningDate = Deposit.Date And Deposit.Date >= #" & A & "#", con)
А это моя datetimepicker.value