vb实现Access把一组数据从一个数据库转到另一个数据库
用dreamweaver
只需写sql,自动生成结果
方法一:
打开目标数据库,选择文件-获取外部数据-导入,
然后在弹出的窗口中,选择源文件,然后挑选你想要导入的数据即可实现
方法二:
通过sql server数据导入导出工具实现,详情参阅sql帮助
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from A2" '当前文件夹中library库A2表中数据Adodc1.Refresh
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mybook.mdb;Persist Security Info =false"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from A3" 当前文件夹中mybook库A3表数据
Adodc2.Refresh
If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst 'A2表中数据集指针到最前面
If Not Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast 'A3数据集指针到最后
For i = 1 To Adodc1.Recordset.RecordCount
Adodc2.Recordset.AddNew 'A3添加空数据
Adodc2.Recordset.Fields(0).Value = Adodc1.Recordset.Fields(0).Value '将A2当前指针的数据给A3新加数据表中
Adodc2.Recordset.Update 'A3更新
Adodc1.Recordset.MoveNext 'A2指向下一条继续
Next i
病情分析:
过敏性哮喘患者饮食最基本原则就是清淡、松软,适宜多吃易消化且含纤维素丰富的食物,如丝瓜、香蕉、梨等;少吃鸡蛋、肥肉等容易生痰的食物。
指导意见:
由于过敏性哮喘多由过敏因素诱发,因此鱼、虾、河蚌、蟹等腥膻的海味食物以及羊肉、肥肉、鸡蛋、花生、巧克力、糖果、蜂蜜等甜腻食物,应该少吃或最好不吃。
病情分析:
1、避免温差变化,注意保暖,2、预防和及时治疗感冒,3、预防常见过敏原刺激,包括环境和饮食控制,4、避免剧烈运动和疲劳,部分与内分泌或精神有关,注意预防。5、规范治疗,6、原因不同,治疗和预防的方法就不同。
指导意见:
你好:常见致敏食物包括:(一)动物蛋白食品:包括牛奶、鸡蛋、鱼、虾、蟹、羊肉、牛肉、猪肉,鸡肉及其它禽类等。(二)油料作物及坚果类:包括芝麻、花生、黄豆、核桃、榛子、开心果、腰果等。(三)水果及蔬菜类:包括桃、梨、苹果、橘子、荔枝、西瓜、扁豆、番茄、茄子等。(四)谷类:小麦、燕麦、荞麦、玉米等。(五)食物添加剂:以食用色素、防腐剂为主。
你好,过敏性哮喘的饮食宜温热、清淡、松软,可少食多餐。除了忌食肯定会引起过敏或哮喘的食物以外,应避免对其他食物忌口,以免失去应有的营养平衡。在哮喘发作时,还应少吃胀气或难消化的食物,如豆类、山芋等,以避免腹胀压迫胸腔而加重呼吸困难。
使用2个数据连接,
全部打开,按条插入
如:dim conn1 as adodb.connection, conn2 as adodb.connection
dim sqlstr as string
sqlstr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=456123;Data Source=" & App.Path & "\DB.mdb;Persist Security Info=True"
Set conn1 = New ADODB.Connection
conn1.CursorLocation = adUseClient
conn1.Open sqlstr
sqlstr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=456123;Data Source=" & App.Path & "\DB1.mdb;Persist Security Info=True"
Set conn2 = New ADODB.Connection
conn2.CursorLocation = adUseClient
conn2.Open sqlstr
dim rs as adodb.recordset
dim i as integer, fieldCount as integer
set rs = conn1.execute("select * from table1")
if rs.eof then exit sub
fieldCount = rs.Fields.Count
do while rs.eof = false
sqlstr = "insert into table1 values('"
for i = 0 to fieldCount - 2
sqlstr = sqlstr & rs.fields(i) & "','"
next i
sqlstr = sqlstr & rs.fields(i) & "')"
conn2.execute(sqlstr)
rs.movenext
loop
rs.close
conn1.close
conn2.close
需要,Mark备用
access窗体输入数据到AB2个表中,A表若存在则覆盖,B表直接添加不覆盖,如 ...
可以通过主子窗体实现,主窗体是演员的数据,子窗体是演员的代表作,需要主子窗体有关联字段,具体做法是在先设计主窗体,数据源为A表,然后在主窗体插入一个子窗体控件,数据源为B表,这时会提示设置主子表的源字段和目标字段,设置好后就可以实现你想要的效果了,这种需求很常见,其实AB表是一对多的关系...
VB中修改access表中字段的名称
ALTER TABLE stable RENAME COLUMN a TO b在ACCESS中,语法错误 ACCESS的ALTER TABLE语句不支持改字段名,可查看ACCESS帮助。
急求VB+ACCESS的图书管理系统,多谢了
Visual Basic自动产生界面设计代码,程序设计人员只需要编写实现程序功能的那部分代码,从而可以大大提高程序设计的效率。能够更好的设计出实用的软件。b.面向对象的程序设计Visual Basic支持面向对象的程序设计,但它与一般的面向对象的程序设计语言(C++)不完全相同。在一般的面向对象程序设计语言中,对象由程序代码和数据...
在access中,怎样设置窗体的页眉和标题??
2、右键单击选择设计视图。3、弹出界面向下拉出窗体页眉的区域。4、然后选择Aa标签控件,并在页眉位置拉出。5、然后输入文本雇员基本信息。6、然后右键单击该标签,选择属性按钮。7、修改标签名称。8、设置标签为黑体。注意事项:ccess有强大的数据处理、统计分析能力,利用access的查询功能,可以方便地进行...
Access 2007开发指南目录
第28章:Access和Internet\/Intranet 第五部分:润饰应用程序 第29章:应用程序文档管理 第30章:维护应用程序 第31章:容易实现的数据库安全性 第六部分:附录 附录A:命名约定 附录B:表结构 B.1 tblClients表 B.2 tblClientAddresses表 B.3 The tblAddressTypes表 B.4 tblClientPhones表 B.5 ...
access里如何实现以下问题? 1. A B C 三列数据,每列中可能有数据,也可...
[1]建立一个新查询,在sql视图写:SELECT 表3.A as 数据 , 1 as 代号, 表3.id FROM 表3 union SELECT 表3.B, 2 as 代号, 表3.id FROM 表3 UNION SELECT 表3.c, 3 as 代号,表3.id FROM 表3;查询名称叫“基础”[2]如图实现第一问 [3]如图实现第二问 [4]如图实现第三问(...
ACCESS如何实现满足某个条件时,字段1显示字段2的值,不满足时,显示字段...
网页链接 用iif函数吧,祝研究的愉快。另外可以考虑用VBA实现,如果是外部程序就,也可以通过程序语言来实现。(比如C#,JAVA等等)
access 设X字段为查阅列表,列表中的暑假分别为A B C 该怎么搞啊!_百度...
1、打开要引用数据的表的设计视图,选中要引用数据的字段,在其数据类型下拉列表中选择“查阅向导”。2、打开“查阅向导”对话框,保持系统默认单击“下一步”按钮。3、在打开的界面中选择提供数据的表,单击“下一步”按钮。4、在打开的界面中的“可用字段”列表中选择要作为下拉列表的字段,然后单击“...
access如何录入A列商品编号,b列自动显示商品名称
如果在表中直接录入数据的话,没有办法B列自动显示商品名称,如果是通过窗体录入数据就可以。在表中直接录入数据的话,可以通过别的办法:1.建立窗体,通过窗体录入数据,在窗体中可以设置控件的的数据源来达到目的;2.在表中录入数据时,先不管B字段的自动填充,等A字段全部录完后,通过更新查询来一次...
如何实现ACCESS窗体中在一个组合框内选中目标字段后其对应的字段也自动...
如何实现ACCESS窗体中在一个组合框内选中目标字段后其对应的字段也自动显示? 10 qq804316863 | 浏览2513 次 |举报 我有更好的答案推荐于2017-12-16 15:59:43 最佳答案 不太理解你的问题,猜测...如果在组合框A中选择字段1,想在文本框B中自动显示字段2的内容,那麼,...
丘吉西咪: Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\library.mdb;Persist Security Info =false" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "select * from A2" '当前文件夹中...
通海县19142042032: 利用VB语句调用ACCESS数据库,将一张表的全部信息复制到另一张表中 - ?
丘吉西咪: Private Sub Command1_Click() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim strSql As String Set conn = OpenConnForAccess("test.mdb") strSql = "insert into b select * from c" RunTrans strSql, conn end sub Public ...
通海县19142042032: vb中怎样将access数据表中的一列数据复制到另外一个已经存在的表中.?
丘吉西咪: 使用insert函数试试.
通海县19142042032: 请问怎样用vb语言实现access数据库记录的拷贝? - ?
丘吉西咪: 说思路不说代码,就同时打开两个数据库,把从这个数据库的表里...
通海县19142042032: vb 随机从access数据库中取1条纪录并显示在text文本框中怎么写代码? - ?
丘吉西咪: Private Sub Form_Load()'打开数据库的代码你应该自己写好了吧,所以省略,RandomizeAdodc1.Recordset.MoveFirstFor i = 0 To Int(Rnd(0 * Adodc1...
通海县19142042032: VB操作两个数据库,从A数据库表中查询,然后写入B数据库表中! - ?
丘吉西咪: insert into 数据库1.dbo.表(字段列表) select 字段列表2 from 数据库2.dbo.表 where 条件其中 列表1的项应该与列表2的项是相等的 H字段可以用以下的方式写eg"insert into 数据库1.dbo.表(列一,列二,列三,列四) select 列一,列二,'" & H & "' from 数据库2.dbo.表 where 条件"
通海县19142042032: VB中如何实现将Access数据库中的数据全部列出? - ?
丘吉西咪: 假设你的db1.mdb在你的当前目录下: Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.CursorLocation = adUseClient cn.Open "Pr...
通海县19142042032: 请问用VB能否将将一个二维数组的所有值及其对应位置存入access中 - ?
丘吉西咪: 可以,先在Access中建立一个表保存这个二维数组,假设表名为T,列如下:index1:一维索引 index2:二维索引 value:类型与你的数组元素类型相似,用于保存元素值 用两层for循环,第一次遍历第[i]个元素,第二次读取第[i,k]元素,假如值是v,这样就把(i,k,v)存入表T中即可.
通海县19142042032: VB编程 - 从access数据库里调用数据进行运算. - ?
丘吉西咪: '先引用 : Microsoft Activex Data Objects 2.1 Library Private Sub Command1_Click() Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb" '请...
通海县19142042032: 想了解一下VB与Access的具体应用.比如我想把从一个仪表上读取到数据以表格的形式保存到电脑中. - ?
丘吉西咪: 答:完全可以.首先要去弄明白这仪表的接口协议.也就是这个仪表设计时候预留的和外部计算机通讯的方式.最多见的是串口的方式,现在有很多仪表有了 USB的接口或者各种总线形式以及HART协议.知道了仪表的情况以后在VB中选用对...