表结构判断

ycxchen

我想从将一个XSL格式的数据表导入到一个表中，但不知如何用代码判断两表结构相同？以便相同时导入，不同时提示不导入。盼各位指教。

Grant

你的结构是否指表字段名称相同

ycxchen

是的,请指教

ACMAIN_CHM

提供一个思路，通过ADO打开XLS文件，并打开对应的SHEET的recordset，然后检查recordset.fields的字段名，字段类型，与目标表的recordset.fields做对比看是否兼容。

rsXls.open "select * from [Excel 8.0;Database=c:\book1.xls].[Sheet1$] ",conn
rsTbl.open  "select * from MyTable",conn

for i = 0 to rsxls.fields.count-1
    if rsXls.fields(i).name = rsTbl.fields(i).name then ...
    if rsXls.fields(i).type= rsTbl.fields(i).type then ...
next





******************
*  一切皆有可能  *
******************
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

ycxchen

4# ACMAIN_CHM
十分感谢CHN！你的思路值得参考。
从本站下载了一例子，其代码用于判别表字段的，具体如下：
On Error GoTo Exit_Err
    DoCmd.OpenForm "数据导入项目"
    Dim CX As Integer
    Dim i As Integer
    Dim strItem As String
    strItem = ""
    Dim xRst As ADODB.Recordset
    Set xRst = CurrentProject.Connection.Execute("Select  * From " & Me.cboTableName.Column(2))
    CX = xRst.Fields.Count
    For i = 0 To CX - 1
        If strItem <> "" Then strItem = strItem & ";"
        strItem = strItem & xRst.Fields(i).Name
    Next
    xRst.Close
    Set xRst = Nothing
    With Forms("数据导入项目")
        .lstA.RowSource = strItem
        .lblA.Caption = Me.cboTableName.Column(1) & "包含的项目:"
        .lstB.RowSource = strCurItem
        If strItem <> strCurItem Then
            MsgBox "将要导入的数据与目标数据项目不符！", 48, "警告"
            .lstB.ForeColor = 255
            'Else
            ' MsgBox "将要导入的数据与目标数据项目相同！", 64, "提示"
        End If
    End With
    Exit Sub
对其中lstA、.lblA.  lstB三个变量不明，在例子中不见有声明变量的语句，最好帮忙写个解释

ycxchen

对5楼的代码有部分看不明,请问,对本问题如何写代码较好?

ycxchen

搞糊涂了，5楼所说的lstA、.lblA.  lstB是窗体控件，原来在查看时看不见。不知5楼的代码完善吗？

chaojianan

谢谢提供代码，收藏了。

ycxchen

还有其它办法吗？

wjsfeng

学习了