数据库导入文本文件数据的错误

Question

Dim Rst As New ADODB.Recordset
   Dim strSql As String    '建立记录集对象
    conn.CursorLocation = adUseClient
    '设定客户端游标
'         Conn.Open strConString
  cdc.DialogTitle = "选择你要打开的文件"
  cdc.InitDir = "c:\"
  cdc.Filter = "*.txt|*.txt"
  cdc.ShowOpen
  strSql = "select * from student "
  Rst.Open strSql, conn, adOpenKeyset, adLockPessimistic
  
 ' Open "文件.txt" For Input As #1  Open cdc.FileName For Input As #1
   
  Do Until EOF(1)
     
     Line Input #1, strLine$   //怎么这里会提示strLine$没有定义,这个例子在其它地方可以运行的,我复制到另外一个工程就出现这种错误了,为什么
     
     If InStr(strLine$, "学号:") = 1 Then
        Rst.AddNew
        Rst("学号") = Replace(strLine$, "学号:", "")
     End If
     
     If InStr(strLine$, "姓名:") = 1 Then
        Rst("姓名") = Replace(strLine$, "姓名:", "")
     End If
     
  Loop
  Close #1
  
  Rst.Update
  MsgBox "导入成功"

Answer 1

的确没有看到你定义了strLine
你在上面加上定义就好了
Dim strLine As String
Dim Rst As New ADODB.Recordset
   Dim strSql As String
你在这里之所以出错估计是因为你这个模块的头上有Option Explicit声明