1. 如何向使用vb向access数据库添加数据
你试试我写的这个代码在工程->引用->添加ADO对象库引用OptionExplicitDimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimcmAsNewADODB.CommandPrivateSubCommand1_Click()rs.UpdateEndSubPrivateSubCommand2_Click()rs.AddNewEndSubPrivateSubForm_Load()conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\ProgramFiles\MicrosoftVisualStudio\VB98\BIBLIO.MDB;PersistSecurityInfo=False"conn.Openrs.Open"select产品ID,产品名称,产品单价,是否新产品,客户ID,联系方式,订购日期fromMyTable",conn,adOpenKeyset,adLockPessimisticText1.DataField=rs.Fields(0).ValueText2.DataField=rs.Fields(1).ValueText3.DataField=rs.Fields(2).ValueText4.DataField=rs.Fields(3).ValueText5.DataField=rs.Fields(4).ValueText6.DataField=rs.Fields(5).ValueText7.DataField=rs.Fields(6).ValueEndSubPrivateSubForm_Unload(CancelAsInteger)rs.Closeconn.CloseSetrs=NothingSetconn=NothingEndSub
2. VB中如何导入ACCESS数据
VB6.0中通过使用ADO数据对象或使用ADO Data 控件来关联ACCESS的MDB数据库和SQL结构化查询语言来导入数据。
ADO Data 控件， ADO Data 控件使用 Microsoft ActiveX 数据对象(ADO) 来快速建立数据绑定的控件和数据提供者之间的连接。数据绑定控件是任何具有“数据源”属性的控件。数据提供者可以是任何符合 OLEDB 规范的数据源。使用 Visual Basic 的类模块也可以很方便地创建子集的数据提供者。
尽管可以在应用程序中直接使用 ActiveX 数据对象(ADO)，但 ADO Data 控件有作为一个图形控件的优势（具有“向前”和“向后”按钮），以及一个易于使用的界面，使您可以用最少的代码创建数据库应用程序。
ADO 是为 Microsoft最新和最强大的数据访问范例 OLE DB 而设计的，是一个便于使用的应用程序层接口。OLE DB为任何数据源提供了高性能的访问，这些数据源包括关系和非关系数据库、电子邮件和文件系统、文本和图形、自定义业务对象等等。ADO 在关键的 Internet方案中使用最少的网络流量，并且在前端和数据源之间使用最少的层数，所有这些都是为了提供轻量、高性能的接口。之所以称为 ADO，是用了一个比较熟悉的暗喻，OLE自动化接口。同时 ADO 使用了与 DAO和 RDO相似的约定和特性，简化的语义使它更易于学习。
结构化查询语言(Structured Query Language)简称SQL，是一种特殊目的的编程语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统；同时也是数据库脚本文件的扩展名。
应用代码示例：
ADO：
Private Sub Command1_Click()
Dim cn As New ADODB.Connection '定义数据库的连接
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "select * from jishijilu"
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "wd.mdb;Persist Security Info=False"
cn.Open
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
ADO Data控件：
Private Sub Command2_Click()
sql = "select * from jishijilu"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "wd.mdb;Persist Security Info=False"
Adodc1.RecordSource = sql
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
3. 怎么用VB把csv文件导入到ACCESS数据库中
CSV是以逗号分隔的文本文件，在ACCESS中，菜单－文件－导入可以直接导入上述文件，如果要编程你可以参考：关于此主题请参考： 导入文本文件时如何指定字段类型？《表》http://access911.net/index.asp?u1=a&u2=77FAB01E16DC 关于此主题请参考： 《VBA》如何将一个文本文件用SQL语句导入到ACCESS表中http://access911.net/index.asp?u1=a&u2=72FAB41E1BDC 方法非常多，你还可以使用ACCESS链接表完成上述操作。 上述所有代码都使用VBA编写，如果你需要使用JDBC来完成应该到JDBC所属的板块提问，关于此主题请参考： 新手来看：Access的特点、概念。什么是纯ACCESS环境？《其他》http://access911.net/index.asp?u1=a&u2=79FAB51E12DC
4. 如何在VB中实现向ACCESS数据库添加数据
以下代复码能使用的前提是库制引用、和数据库连接代码正确:两种办法，一种是 用SQL，另一种是ADO1、用SQL添加数据：insert into 表名（字段1，字段2，字段3）values（值01，值02，值03）例如：docmd.runsql"insert into EmpTable(Name,age,Duty,Salary) values('王明',35,'外贸总监',12500)"2、用ADO的办法：ADO比较复杂，给你一个完整的例子吧：Dim strSqlfitjc As StringstrSqlfitjc = "select * from *表"Set RSfitjc = New ADODB.Recordset ‘定义一个ADO连接，连进数据库RSfitjc.Open strSqlfitjc, cn, adOpenKeyset, adLockOptimistic ’打开连接RSfitjc.addnew '添加一个纪录RSfitjc.Fields("配件编号") = “style” ‘给每个字段赋值.Update ’储存赋值的新纪录.Close 关闭连接End With
5. VB 如何往 ACCESS数据库理添加数据
一,准备工作：1，建立新工程，保存到文件夹。2，把ACCESS数据库文件复制到上述文件夹。3，在窗体上，添加一个ADODC控件和一个按钮。4，在按钮的单击事件里编写程序。程序代码如下：'连接数据库的三步曲：Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\数据库.mdb;PersistSecurityInfo=False"Adodc1.RecordSource="数据表名"Adodc1.Refresh‘添加记录Adodc1.Recordset.AddNew'添加新的空纪录Adodc1.Recordset("姓名").Value=Text1.TextAdodc1.Recordset.Update’更新到数据表
6. vb怎么批量将excel文件导入到access（mdb）的表中
我知道两个方法。1、如果EXCEL数据不多可以用这个方法。workbooks.open(“路径")打开EXCEL，再逐个的用版INSERT语句导入到ACCESS里面。2、就权是EXCEL本身也是一个数据库，第一行是字段，用连接数据库的方式连接EXCEL直接一条SQL导入到SQL。这对格式有点要求，就是第一行必须是字段，数据比较整齐。
7. 如何用VB把EXCEL数据导入到Access
一、用ACCESS导入功能就行了呀.如果要从第二行开始,在导入时有个向导就是不含标题行了.二、特别要注意就是excel每列的格式要与access字段格式要一样。比如excelA列是文件，而ACCESS对应字段是数字，则导入就会出错。你可以在EXCEL用单元格格式设置一下就行。本人用这种方法导过几万条记录都没问题，如不清楚，可再提问。
8. 如何用vb把txt文件的数据导入access数据库
编写一个Schema.ini放在Txt文件的目录下[customer.txt] //Txt文件名ColNameHeader=Trueformat=Delimited(",") //指定分隔符MaxScanRows=0CharacterSet=ANSICol1="字段1" Char Width 20 //指定字段的数据类型回Col2="字段2" Char Width 20然后在程答序中执行SQL：Select * Into customer From [Text;Database=c:\temp].customer.txt
9. VB如何将Excel中的数据批量导入到Access中
Option Explicit
Dim data As New ADODB.Connection
Dim db As New ADODB.Recordset
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Private Sub Command1_Click()
On Error GoTo ErrHandler
CommonDialog1.DialogTitle = "Open files"
CommonDialog1.Filter = "mdb files(*.mdb)|*.mdb"
CommonDialog1.Flags = 4 '取消 “以只读方式打开” 复选框
CommonDialog1.ShowOpen
CommonDialog1.CancelError = True
If Len(CommonDialog1.FileName) <= 4 Then
Exit Sub
Else
Text1.Text = CommonDialog1.FileName
End If
ErrHandler:
Exit Sub
End Sub
Private Sub Command2_Click()
Dim NoExistF As New FileSystemObject
Dim i, j, k As Double
'Excel行i 列j，从第二行开始，去掉标题行
i = 2
j = 1
k = 1 'Access列号，第0列留着放主键
If NoExistF.FileExists(Text1.Text) = False Or NoExistF.FileExists(Text2.Text) = False Then
MsgBox "文件不存在！", 16, "错误提示"
Exit Sub
Else
'打开Access数据库
data.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Text1.Text & ";Persist Security Info=False"
db.Open "select * From sheet", data, adOpenKeyset, adLockOptimistic '数据库表的名字sheet
'打开Excel数据表
Set xlsApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlsBook = xlsApp.Workbooks.Open(Text2.Text) '打开已经存在的EXCEL工件簿文件
Set xlsSheet = xlsBook.Worksheets("Sheet1") '设置活动工作表
Do
If xlsSheet.Cells(i, j) = "" Then '姓名=空 的时候，结束循环
Exit Do
End If
db.AddNew
db.Fields(k) = xlsSheet.Cells(i, j)
db.Fields(k + 1) = xlsSheet.Cells(i, j + 1)
db.Fields(k + 2) = xlsSheet.Cells(i, j + 2)
db.MoveNext
i = i + 1
Loop
End If
db.MovePrevious
db.Update
db.Close
data.Close
MsgBox "数据传输完毕！", , "提示"
Set xlsSheet = Nothing
xlsBook.Close
Set xlsBook = Nothing
xlsApp.Quit
Set xlsApp = Nothing
End Sub
Private Sub Command3_Click()
On Error GoTo ErrHandler
CommonDialog1.DialogTitle = "Open files"
CommonDialog1.Filter = "xls files(*.xls)|*.xls"
CommonDialog1.Flags = 4 '取消 “以只读方式打开” 复选框
CommonDialog1.ShowOpen
CommonDialog1.CancelError = True
If Len(CommonDialog1.FileName) <= 4 Then
Exit Sub
Else
Text2.Text = CommonDialog1.FileName
End If
ErrHandler:
Exit Sub
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
10. 在vb6.0中如何导入文本文档中的数据到数据库access
通常来说，操作数据库只能用SQL，除非你是数据库的系统分析师级别的技术员几万条数据，必定要消耗一定的时间，即便直接从数据库读取几万条数据也是比较费力的Access不崩溃就已经很不错了，建议改用SQLServer或者Oracle，100万条以内都是比较流畅的因为你说的是VB6，所以排除手动方法，如果目的仅仅是导入ACCESS的话可以使用Access的导入功能，可以直接导入文本文档。
