满分求解

Question

private Sub Command1_Click()
 
 
 Set dgData.DataSource = Read_Text_FileEnd Sub
Public Function Read_Text_File() As ADODB.Recordset      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim conn As ADODB.Connection
      Set conn = New ADODB.Connection
      conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & "DBQ=" & "c:\ " & ";", "", ""   rs.Open "select * from [jjjj.txt]", conn, adOpenStatic, adLockReadOnly, adCmdText
 
 
 
      Set Read_Text_File = rs
     ' Set rs = Nothing
     ' Set conn = Nothing
End Function我用以上程序新建了一个数据库
当我想查找jjjj.txt中的某个数据的时候.
我应该如何编程.

Answer 1

我覺得不用函數還好﹐因為函數好象返回不了記錄集﹐所以改成以下rivate Sub Command1_Click()
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim conn As ADODB.Connection
      Set conn = New ADODB.Connection
      conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & "DBQ=" & "c:\ " & ";", "", ""
   rs.cursorlocation=aduseclient--->加這行
   rs.Open "select * from [jjjj.txt]", conn, adOpenStatic, adLockReadOnly, adCmdText
 
   Set dgData.DataSource = Read_Text_FileEnd Sub也已經在另一帖回答了﹐請你試一試

Answer 2

Set dgData.DataSource = Read_Text_File
改成﹕Set dgData.DataSource =rs

Answer 3

顶，我没有直接对txt进行查找过，
不过我这有个，可以把txt转化成数据库的我发给你

Answer 4

Dim sStr As String
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Open App.Path + "\turkey.txt" For Input As #1
 While Not EOF(1)
  Input #1, sStr
  rs.AddNew
  rs(0) = sStr
 Wend
  rs.Update
  rs.Close
End SubPrivate Sub Form_Load()
 mdbPath = App.Path + "\file.mdb"
 con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath & ";Persist Security Info=False"
 rs.Open "select * from data", con, adOpenDynamic, adLockOptimistic
End Sub
这只是个例子，你看看 每一行做为一条记录

Answer 5

Dim sStr As String
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click() '把txt转换成数据库
Open App.Path + "\turkey.txt" For Input As #1
 While Not EOF(1)
  DoEvents
  Input #1, sStr
  rs.AddNew
  rs(0) = sStr
 Wend
  rs.Update
  rs.Close
End SubPrivate Sub Command2_Click() '产生txt
Open App.Path + "\turkey.txt" For Output As #1
 For i = 1 To 50000
  DoEvents
  Write #1, i
 Next i
Close #1
End SubPrivate Sub Command3_Click() '查找里边是4554 有MSGBOX提示
 rs.Close
 rs.Open "select * from data where 内容='4554' ", con, adOpenDynamic, adLockOptimistic
 If rs.EOF Then
  MsgBox "没有找到"
 Else
  MsgBox "找到了"
 End If
End SubPrivate Sub Form_Load()
 mdbPath = App.Path + "\file.mdb"
 con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath & ";Persist Security Info=False"
 rs.Open "select * from data", con, adOpenDynamic, adLockOptimistic
End Sub
改后的，测试过了，如果有疑问加我qq51365133