Comments by BassamKassem

BassamKassem 13-Oct-19 16:21pm View

you were right , I debugged the value and it turned out that the problem was in @TXT_Cust_Record_ID from the SELECT query i changed it from

strSelect = "Select * From Customers"
strSelect &= "WHERE ID = (ID = @TXT_Cust_Record_ID)"

to

strSelect = "Select * From Customers"
strSelect &= "WHERE ID = (@TXT_Cust_Record_ID)"

BassamKassem 8-Oct-19 6:44am View

Thanks bro you are genius , here is a fix based on your recommendations

Dim expr As String = "SELECT * FROM [Sheet1$] WHERE ID > '0'"

BassamKassem 4-Oct-19 14:05pm View

thanks , i already mentioned above that i had rewrote my application from the scratch to make it compatible with SQL SRV and it is working flawlessly however i can wait till my org publish my DB to a running server . thanks again it seems i will have to wait

BassamKassem 4-Oct-19 13:31pm View

I know that and that is what i did , but it will take a lot of time till my company publish my SQL DB to a running server s for allocating one PC to be used as a server this is not applicable for me as well. i urgently need a work around

BassamKassem 1-Oct-19 11:37am View

am afraid it is a VB error and it is related to filling the data-grid by the modified records

BassamKassem 1-Oct-19 8:40am View

Deleted

I searched and couldn't find how to do it

I need to view the updated records to the grid but seems very hard for me

however her is a temp work around it performs the needed statement (Select, Updated , Delete) without throwing any errors yet it displays the records in case of SELECT and empty the GridView if else

BassamKassem 1-Oct-19 7:58am View

I used it and that's what i noticed

during the debugger , I noticed that when i use a normal SELECT statement it returns no error and worked fine however when I user UPDATE statement it through the mentioned error and couldn't fill the DataGridView by the modified records.

BassamKassem 1-Oct-19 7:56am View

during the debugger , I noticed that when i use a normal SELECT statement it returns no error and worked fine however when I user UPDATE statement it through the mentioned error and couldn't fill the DataGridView by the modified records.

BassamKassem 1-Oct-19 7:39am View

IT gave me the same error message "Child list for field Customers cannot be created."

and the variable sqlQry = "UPDATE Customers SET ShortCode = '0000' WHERE (ServiceName='Block ALL ADs' AND SupplierName='Block Ads - All Vendors' AND SupplierFeedbackDate='.... / .... / .....' AND Supplier_Feedback='.....');"

BassamKassem 1-Oct-19 7:25am View

question has been updated

BassamKassem 1-Oct-19 7:25am View

Done sir

BassamKassem 1-Oct-19 7:24am View

Done and question updated including sqlQry outcome

BassamKassem 23-Sep-19 5:47am View

I'm not very much familiar with parameterised queries that's why am lost

BassamKassem 23-Sep-19 5:25am View

Can you please tell me what code to write her am a bit lost

BassamKassem 22-Sep-19 11:59am View

your solution is working and i thank you for your help, but final question or help please. how to make my solution work on network drive to be used by different users , before migrating my database from access to SQL i used to point to the mdb file using below command "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.Environment.CurrentDirectory & "\FileName.mdb"

BassamKassem 17-Sep-19 10:50am View

your solution is working with some users that have Microsoft office 32bit as for those whom having 64 it gave them error "the microsoft.ace.oledb.12.0 provider is not registered on local machine"

and the problem is that this application is added to shared folder with multiple users some have MS office 32 and others have 64bit version . so any help with that to make it universal with all kind of versions

BassamKassem 25-Dec-17 10:48am View

Thanks for your continuous support , I tried this but still not working donno why

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Using connection As OleDbConnection = CreateConnection()
Using cmdInsert As OleDbCommand = connection.CreateCommand()
If RecordID_TXT.Text = "" Then
If MessageBox.Show("Do you want to Add a New Record?", "Insert", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then
Exit Sub
Else
'cmdInsert.CommandText = "INSERT INTO Supp_Users (Supp_UserName, Supp_Domain, Password, EmailTo, EmailCC) VALUES (@Supp_UserName = ?, @Supp_Domain = ?, @Password = ?, @EmailTo = ?, @EmailCC = ?)"
cmdInsert.CommandText = "Insert Into Supp_Users (Supp_UserName, Supp_Domain, Password, EmailTo, EmailCC) Values (@Supp_UserName, @Supp_Domain, @Password, @EmailTo, @EmailCC)"
cmdInsert.Parameters.AddWithValue("Supp_UserName", SuppNameVariable.Text)
cmdInsert.Parameters.AddWithValue("Supp_Domain", Supp_domain_TXT.Text)
cmdInsert.Parameters.AddWithValue("Password", Supp_Pass_TXT.Text)
cmdInsert.Parameters.AddWithValue("EmailTo", MailAdress_Holder_TXT_TO.Text)
cmdInsert.Parameters.AddWithValue("EmailCC", MailAdress_Holder_TXT_CC.Text)
cmdInsert.ExecuteNonQuery()
MsgBox("Record added successfully.")
RecordID_TXT.Text = ""
SuppNameVariable.Text = ""
Supp_domain_TXT.Text = ""
Supp_Pass_TXT.Text = ""
MailAdress_Holder_TXT_TO.Text = ""
MailAdress_Holder_TXT_CC.Text = ""
lbl_RowCount.Text = DataGridSupplierMGT.RowCount
End If
Else
MsgBox("Please make sure to add below data:" & vbNewLine & "1. Supplier Name" & vbNewLine & "2. Supplier Domain" & vbNewLine & "3. Supplier Password" & vbNewLine & "4. Email To" & vbNewLine & "5. Email CC")
lbl_RowCount.Text = DataGridSupplierMGT.RowCount
End If
End Using
End Using
Catch ex As OleDbException
' TODO: Log the full exception details somewhere:
System.Diagnostics.Trace.TraceError(ex.ToString())
MessageBox.Show(ex.Message)
End Try
End Sub

BassamKassem 13-Dec-17 11:31am View

I will make a timer to close the app from the users after leaving it idle for a certain time. thanks for your answer my friend really appreciate it

BassamKassem 13-Jan-16 4:42am View

can you support by offering code sample please

Comments by BassamKassem (Top 19 by date)