ช่วยผมดู code ให้หน่อยครับ ค้นหาข้อมูล 3 เงื่อนไข แล้วกดปุ่มค้นหา
ผมทำได้แต่ค้นหาจาก รหัสสมาชิกครับ Code (VB.NET) Private Sub Cmdsear_Click()
sqlsearch = " SELECT * FROM Member WHERE (Mem_Id =" & txtSearch.Text & ")"
With rsReg
If .State = adStateOpen Then .Close
.ActiveConnection = conn
.CursorType = adOpenForwardOnly
.CursorLocation = adUseClient
.Open sqlsearch
If .RecordCount <> 0 Then Set mfgReg.DataSource = rsReg
End With
With mfgReg
.TextMatrix(0, 0) = "ÃËÑÊÊÁÒªÔ¡"
.TextMatrix(0, 1) = "¤Ó¹Ó˹éÒ"
.TextMatrix(0, 2) = "ª×èÍ"
.TextMatrix(0, 3) = "¹ÒÁÊ¡ØÅ"
.TextMatrix(0, 4) = "·ÕèÍÂÙè"
.TextMatrix(0, 5) = "àÅ¢·ÕèºÑµÃ»ÃЪҪ¹"
.TextMatrix(0, 6) = "Çѹ/à´×͹/»Õ"
.TextMatrix(0, 7) = "à¾È"
.TextMatrix(0, 8) = "àºÍÃìâ·Ã"
.TextMatrix(0, 9) = "ÇѹàÃÔèÁ·Ó§Ò¹"
.TextMatrix(0, 10) = "Çѹ·ÕèÅÒÍÍ¡"
.TextMatrix(0, 11) = "ʶҹÐÀÒ¾"
.ColWidth(0) = 1000
.ColWidth(1) = 1000
.ColWidth(2) = 1000
.ColWidth(3) = 1200
.ColWidth(4) = 1000
.ColWidth(5) = 1700
.ColWidth(6) = 1100
.ColWidth(7) = 800
.ColWidth(8) = 1200
.ColWidth(9) = 1200
.ColWidth(10) = 1200
.ColWidth(11) = 1200
End With
End Sub
Tag VBScript
ประวัติการแก้ไข
Date :
2013-03-19 15:33:12By :
view2004View :
1229Reply :
2
Code (VB.NET) sqlsearch = " SELECT * FROM Member WHERE 1=1 "
IF Me.txtID.Text <> "" Then
sqlsearch = sqlsearch & " (Mem_Id ='" & txtSearch.Text & "')"
End IF
IF Me.txtName.Text <> "" Then
sqlsearch = sqlsearch & " (Mem_Name LIKE '%" & txtName.Text & "%' )"
End IF
Date :
2013-03-19 16:44:27By :
mr.win
ขอบคุณครับ นำมาปรับอีกนิดแก้ได้แล้ว
Date :
2013-03-19 19:50:18By :
view2004
Server 02
Load balance : Server 02
