vb×Ó³ÌÐò»òº¯Êý䶨Òå - VB / »ù´¡Àà

Private Sub Command1_Click()//ÔËÐÐʱ×ÜÏÔʾÕâÀï¡°×Ó³ÌÐò»òº¯Êý䶨Ò塱
  Dim db As Database
  Dim rs As Recordset
  Dim ws As Workspace
  Set ws = CreateWorkspace("", "admin", "", dbUseJet)
  Set db = ws.OpenDatabase(App.path + "\", False, False, "foxpro 2.5;")
  Set rs = db.OpenRecordset("select * from block.dbf where [blockname] like '" + trime(Text1.Text) + "'", dbOpenDynaset)
  If rs.RecordCount Then
  MsgBox "´Ë°å¿éÒÑ´æÔÚ"
  rs.Close
  db.Close
  ws.Close
  Exit Sub
  End If
End Sub

---

Dim db As Database
  Dim rs As Recordset
  Dim ws As Workspace
ÕâЩ¶¼ÐèÒªÒýÓá£

ÁíÍâDAO±È½Ï¹ýʱÁË£¬lz¿¼ÂÇʹÓÃADO°É¡£

---

ÒýÓÃ

Dim db As Database
Dim rs As Recordset
Dim ws As Workspace
ÕâЩ¶¼ÐèÒªÒýÓá£

ÁíÍâDAO±È½Ï¹ýʱÁË£¬lz¿¼ÂÇʹÓÃADO°É¡£

ÄǸÃÔõôÒýÓÃÄØ£¿

---

Trime(Text1.Text)

Ó¦¸ÃÊÇTrim(Text1.Text)£¬¶àÇÃÁ˸öe£¬¿ÉÊÇÕâÑùºóÓÖÌáʾ£ºÊµÊ±´íÎó91£¬¶ÔÏó±äÁ¿»òwith¿é±äÁ¿Î´ÉèÖÃ
ÕâÊÇʲôÎÊÌâÄØ£¿

---

ÎÒ¹À¼ÆÓÐÁ½ÖÖÇé¿ö£ºÒ»¡¢ÄãµÄ°´Å¥¿Ø¼þ»»ÃûÁË£¬Ãû³Æ¸ÄÁË£¬²»ÊÇcommand1ÁË£¬°ÑCommand1_Click»»³É ÐÂÃû×Ö_Click£»¶þ¡¢ADO¶ÔÏóûÒýÓ×—ÒýÓ÷½·¨£¬¹¤³Ì->ÒýÓÃ->¹´Ñ¡Micros