将excel数据导入 Access 问题 - VB / 基础类
用VB程序中将excel的文件放在和工程同一个文件夹中，导入时没有错误，但在别的目录下导入就会出现错误
提示： 主关键字重复（这个判断我在程序中加了，在和ACCESS同一目录下时没出现错误）
CommonDialog1.FileName = ""
'CommonDialog1.flags = vbofnfilemustexist
CommonDialog1.Filter = "All file|*.*|(*.xls)|*.xls"
CommonDialog1.FilterIndex = 2
CommonDialog1.DialogTitle = "导入文件"
CommonDialog1.Action = 1
If CommonDialog1.FileName = "" Then
' X = MsgBox("没有这个文件", 37, "提示")
Else
Dim oConn As New ADODB.Connection
'连接Exce
' On Error Resume Next
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & CommonDialog1.FileName & ";" & "Extended Properties=""Excel 8.0;"""
'oConn.Execute ("insert into [;database=f:\登记项目\zgda.mdb].个人基本资料1(ID,fld1,fld2) Select * from [Sheet1$]" & "where ID not in (select ID from [;database=zgda.mdb].个人基本资料1)")
oConn.Execute ("insert into [;database=" & app.path&"\zgda.mdb].个人基本资料1(ID,fld1,fld2) Select *
相关问答：
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
问题：
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
我连接access数据库，以前一直很好，最近却总是出错（数据库连接出错!！），代码如下：
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&" ......
