Code:
strSQL = "SELECT * FROM SUPPLIER WHERE sName LIKE '%" & inputByName & "%'"
Code:
strSQL = "SELECT * FROM SUPPLIER WHERE City LIKE '%" & inputByName & "%'"
strSQL = "SELECT * FROM SUPPLIER WHERE sName LIKE '%" & inputByName & "%'"
strSQL = "SELECT * FROM SUPPLIER WHERE City LIKE '%" & inputByName & "%'"
"SELECT sName, sAddress, City from SUPPLIER where sName LIKE '%" & txtViewLocat.text & "%'
strSQL = "SELECT * FROM SUPPLIER WHERE sName LIKE '%" & inputName & "%'"
Private Sub cmdNameView_Click() Dim strSQL As String inputName = UCase(txtName.Text) Set rs = New ADODB.Recordset If inputName <> "" Then
Leave a comment: