¹ØÓÚSQL²éѯÓï¾ä

ÈçÉÏ£¬ÎÒÏ뽫±í¸ñÖС°´úÂ롱ÁÐÖÐÇ°ÈýλΪ¡°000¡±µÄËùÓÐÐÐÈ«²¿ÕÒ³öÀ´£¬ÓÃSQLÔõôд°¡

---

Êý¾ÝÊÇ´æÔÚACCESSÖеÄ

---

select * from table where [´úÂë] like '000%'

---

VB code:

Private Sub Cmd1_Click()
Dim i As Integer
Dim s As String

recset.Close '¹Ø±Õ¼Ç¼¼¯
s = "select * from ¹ÉƱ where [´úÂë] like '000%'"

Set recset = db.OpenRecordset(s) '´ò¿ª¼Ç¼¼¯

Form1.MSHFlexGrid1.FormatString = "^ÐòºÅ|< ´ú Âë |< Ãû ³Æ|<¼Û ¸ñ|>»õ ±Ò ×Ê ½ð|>³¤ ÆÚ ¸º Õ®|> ×Ü ¹É ±¾ |>Á÷ ͨ ¹É ±¾|>¾»ÏÖ½ð¼ÛÖµ(×Ü)|>¾»ÏÖ½ð¼ÛÖµ(Á÷)|>±¶ Êý|>±¸ ×¢"

Form1.MSHFlexGrid1.rows = 1

For i = 1 To Form1.MSHFlexGrid1.rows - 1
Form1.MSHFlexGrid1.TextMatrix(i, 0) = i
Next

i = 0
With recset
Do While Not .EOF
i = i + 1
Form1.MSHFlexGrid1.TextMatrix(i, 1) = !´úÂë
Form1.MSHFlexGrid1.TextMatrix(i, 2) = !Ãû³Æ
Form1.MSHFlexGrid1.TextMatrix(i, 3) = !¼Û¸ñ
Form1.MSHFlexGrid1.TextMatrix(i, 4) = !»õ±Ò×ʽð
Form1.MSHFlexGrid1.TextMatrix(i, 5) = !³¤ÆÚ¸ºÕ®
Form1.MSHFlexGrid1.TextMatrix(i, 6) = !×ܹɱ¾
Form1.MSHFlexGrid1.TextMatrix(i, 7) = !Á÷ͨ¹É±¾
Form1.MSHFlexGrid1.TextMatrix(i, 8) = !¾»ÏÖ½ð¼ÛÖµ×Ü