求助，读取文本写入数据库

定义四个变量，如 DX,XY,TgtID,Layer
定义临时变量 S ，临时数组 A（）

do
s＝读一行
if instr(s,",")>1 then         '忽略空行
  a=split(s,",")                '分解为二段
  if a(1)=0 then         '为tgtid 或 layer 或尾
     if a(0)>????  then  'Layer的最小值-1 ，或者可能的 TgtID 最大值
         layer=a(0)            '取 Layer
     elseif a(0)=-666666.0  then     '段结束
         layer=0                '置段标记
         tgtid=0
     elseif a(0)=-999999 then    '文件结束
         退出循环标志＝1        
     end if
  else                '不属于以上三种情况，置X，Y
    DX=a(0)
    DY=a(1)
  end if
  if 退出循环标志 =1 then exit do
    if layer>0 and tatid>0 then
       sql="INSERT INTO 表名 (X, y,TgtID,layer) VALUES (" & dx & "," & dy & "," & TgtID & "," & layer & ");"
       数据连接执行SQL命令
    end if
end if
loop

大体上我想到的流程就是这样的，浏览器写的代码，有些地方需要使用 val 函数转换。你慢慢完善吧。

您好，在数据库的表中表的字段是这样的
编号 X  Y  TgtID layer

编号是自动的，这样的话，此句该怎么改 sql="INSERT INTO 表名 (X, y,TgtID,layer) VALUES (" & dx & "," & dy & "," & TgtID & "," & layer & ");"

编号是自动的 ，那插入数据时就不用管了。

如果是手动编号，你自己查一下 SQL 命令的语法就知道怎么加了。

     elseif a(0)=-999999 then    '文件结束
         退出循环标志＝1        
     else
         Igtid =a(0)


写漏了。

Private Sub Command1_Click()
Dim DX As Double
Dim DY As Double
Dim iTgtID As Integer
Dim iLayer As Long
Dim sList() As Variant
Dim dataFile As String
Dim accessFile As String
Dim Flag As Integer

With CommonDialog1
    .Filter = "数据文件(*.*)|*.*"       '设置选择文件的格式
    .ShowOpen
End With
dataFile = CommonDialog1.fileName

With CommonDialog1
    .Filter = "数据库*.mdb)|*.mdb"       '设置选择文件的格式
    .ShowOpen
End With
accessFile = CommonDialog1.fileName

Dim s As String '定义一个字符型变量，用于存储读取文本中的一行
Open fileName For Input As #1 '打开原始数据

Do
   Line Input #1, s
   If InStr(s, ",") > 1 Then      '忽略空行
     sList = Split(s, ",")             '分解为二段
      If sList(1) = 0 Then       '为tgtid 或 layer 或尾
        If Split(0) > 655 Then 'Layer的最小值-1 ，或者可能的 TgtID 最大值
           iLayer = sList(0)          '取 Layer
        Else
           iTgtID = sList(0)
      ElseIf Split(0) = -666666# Then     '段结束
         layer = 0              '置段标记
         tgtid = 0
      ElseIf Split(0) = -999999 Then  '文件结束
         Flag = 1
      End If
   Else                '不属于以上三种情况，置X，Y
      DX = Split(0)
      DY = Split(1)
   End If
  
   If Flag = 1 Then Exit Do

Dim db As Database
Dim iTB As TableDef
'Dim tb2 As TableDef
Dim rs As Recordset
'Dim rs2 As Recordset
Set db = OpenDatabase(accessFile)                 '打开数据库
Set rs1 = db.OpenRecordset("MainInfo") '打开数据表

  If iLayer > 0 And iTgtID > 0 Then
     rs.AddNew
     rs.Fields(1).Value = DX
     rs.Fields(2).Value = DY
     rs.Fields(3).Value = iTgtID
     rs.Fields(4).Value = iLayer
  End If
  End If
Loop

Close #1
rs.Close
End Sub

这是我根据您的思路写的，有些地方改了，请您帮我看看

我试着去运行这个程序，就是在循环的第一次和第二次时数据库的表格的X Y都是0，
最终程序是出错的。
我的理解大概就是您这样读取数据使得每读一块都会多生成了两行X  Y是0的数据

好的，谢谢你
我应经调了

您好，这是我写的程序，但是执行完了之后数据库中没有添加任何的记录
可以帮我看看吗？
Private Sub Command1_Click()
Dim DX() As Double
Dim DY() As Double
Dim TgtID As Long
Dim Layer As Integer
'Dim count As Long
Dim db As Database
'Dim iTB As TableDef
Dim rs As Recordset
Dim s As String
Dim sList() As String

With CommonDialog1
    .Filter = "数据文件(*.*)|*.*"       '设置选择文件的格式
    .ShowOpen
End With
dataFile = CommonDialog1.FileName

With CommonDialog1
    .Filter = "数据库*.mdb)|*.mdb"       '设置选择文件的格式
    .ShowOpen
End With
accessFile = CommonDialog1.FileName
Set db = OpenDatabase(accessFile)     '打开数据库
Set rs = db.OpenRecordset("MainInfo") '打开数据表

ReDim Preserve sList(0) As String
sList(0) = "-666666.0"
ReDim Preserve sList(1) As String
sList(1) = "-666666.0"
Open dataFile For Input As #1 '打开原始数据

Do
   
   
   If sList(0) = -666666# And sList(1) = -666666# Then
      Line Input #1, s
      sList = Split(s, ",")
      If sList(0) = -999999 And sList(1) = -999999 Then Exit Do
      TgtID = sList(0)
      Line Input #1, s
      sList = Split(s, ",")
      Layer = sList(0)
      
      i = 0
      Do Until sList(0) = -666666# And sList(1) = -666666#
         Line Input #1, s
         sList = Split(s, ",")
         ReDim Preserve DX(i) As Double
         ReDim Preserve DY(i) As Double
         DX(i) = sList(0)
         DY(i) = sList(1)
         i = i + 1
      Loop
      ReDim Preserve DX(UBound(DX) - 1) As Double
      ReDim Preserve DY(UBound(DY) - 1) As Double
      
         If sList(0) = -666666# And sList(1) = -666666# Then
'            count = 0
            For i = 0 To UBound(DX) - 1
               rs.AddNew
               rs.Fields(1).Value = DX(i)
               rs.Fields(2).Value = DY(i)
               rs.Fields(3).Value = TgtID
               rs.Fields(4).Value = Layer
               Refresh
'               rs.Update
'               count = count + 1
            Next i
'            rs.Update
'         Exit Do
         End If
'     Loop
   End If
Loop
'rs.Update
rs.Close
db.Close
Close #1

End Sub

恩恩，问题我已经解决了，谢谢你