• 新记

    • VB 如何把数据库里面A表和B表当中的某些字段添加到C表中啊，给个语法说明 或者例子啊 谢谢

    我这2个表一个是保存串口数据的表，另一个是自己输入数据的表，两个表有一个相同的字段,用ADO控件的方法啊，不要用ADO对象的方法）

    举报该文章
    相关建议   2013-05-04
    一个select语句就行了，如下：

    insert into [表C] (字段1,字段2,字段3,字段4)
    select A表.字段1,A表.字段2,B表.字段1,B表.字段2 from
    A表 INNER JOIN B表 on
    A表.ID=B表.ID
    where 条件

    /*--说明
    ---从A表、B表中查询出相应字段，插入表C。注意插入表C的字段数（列数）等于Select语句中
    ---查询的A表字段数（列数）加上B表字段数（列数），后面的查询条件where语句自己根据情况
    ---选用吧
    */追问

    你好，但是我写的没有实现我想要的功能，程序如下：
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VB_CAN\数据采集.mdb;Persist Security Info=False"
    Adodc1.CursorType = adOpenDynamic
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "Insert into 实时显示表·······"
    Set DataGrid1.RecordSource = Adodc1

    追答

    Adodc1.RecordSource = "Insert into 实时显示表·······"
    Set DataGrid1.RecordSource = Adodc1
    你这样写能出来数据？
    没看懂你想做什么？
    把想要实现的功能具体说下

    温馨提示：内容为网友见解，仅供参考
    其他看法
    第1个回答  2013-05-06
    http://www.docin.com/p-244643901.html
    希望对你有用!!纯正的ADO控件!!

    ...的某些字段添加到C表中啊,给个语法说明 或者例子啊 谢谢
    一个select语句就行了，如下：insert into [表C] (字段1,字段2,字段3,字段4)select A表.字段1,A表.字段2,B表.字段1,B表.字段2 from A表 INNER JOIN B表 on A表.ID=B表.ID where 条件 \/*--说明 ---从A表、B表中查询出相应字段，插入表C。注意插入表C的字段数（列数）等于Sel...

    VB 有一个数据库内有AA、BB二表,想将AA表的记录全部复制到BB中,如何复...
    Public Function SetConnStr(ByVal DbName As String) As String '生成数据库连接字符串,参数为数据库名(全路径)SetConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbName & ";Persist Security Info=False"End Function Public Function ExecuteSQL(ByVal Sql As String, ByVal Co...

    vb SQL多表联合查询问题(Access数据库表)
    1.子查询：就像badkano 回答的。不过那个new_table 名称要你自己改的。不能原样不动。这个表你自己根据那几个表的结构建，你不是说那几个表完全一样吗。2.在程序代码中用循环语句分几次查询，最后把查询结果合到一块。3.用语句建立一个临时表，将那些表的内容都查询到临时表里面。

    vb SQL多表联合查询问题(Access数据库表)
    new_table不是新建的表，只是给那括号里的查询起一个别名 要不可以改成 Adodc1.RecordSource = "select new_table.编号,new_table.地址,new_table.名称,new_table.其它 from (select * from a union all select * from b union all select * from c union all select * from d union all s...

    请问如何用VB把两个excel表格中的各一列输入数组
    Dim Rows1() As String, Rows2() As String Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application")'以下读入1.xls中的Sheet1内的E列数据到数组Rows1()Set xlBook = xlApp.Workbooks.Open("c:\\1.xls"...

    VB编程,利用宏在EXCEL表格中显示想要的列或行
    当然可以！我建议是添加一个按钮或者在工具栏中添加一个图标这两种方法。添加一个按钮的方法：添加上按钮之后，双击它，然后在出现的两行代码中加入一行 Call MyMacro，最终的按钮代码如下：Private Sub CommandButton1_Click()Call MyMacro End Sub 添加图标的方法：在任何一个工具栏上点右键，选择“...

    vb数据库编程,数据库某些字段不能重复,如果录入数据有重复,保存时,程 ...
    1：检查一行，保存一行。凡是没有重复的都保存，有重复的不保存。2：先一一检查，检查到有重复就提示，并结束。不知道你用的是控件还是对象连接的数据库？假设你用Adodc控件，且已经连接。下面：假设字段a,b为字符类型，以一行数据为例，a字段值为“AA”，b字段值为“BB”，Adodc1.RecordSource ="...

    VB中,如何把数据库内容引入combox下拉列表中
    添加内容到combox中：dim con as new adodb.connection dim rs as new adodb.recordset private sub form_load() '在窗体加载事件中，设置两个文本框内容为空，B.text="" '设置文本框B内容为空 C.text="" '设置文本框C内容为空 打开数据库连接 con.open "Provider=Microsoft.Jet.OLEDB...

    如何用vb编程 把数据从一个工作表导入到另一个工作表
    sub main()for i= 1 to 12 if sheets(1).cells(i,"C")=sheets(2).cells(3,i+6) then'sheet1中的C列数据，如果等于Sheet2中第三行的对应数据 sheets(2).cells(3,i+6)=sheets(1).cells(i,"D")'则将sheet1中的D列数据，放入sheet2中对应的第四行中 end if next i end sub ...

    vb,vbA操作EXCEL怎么把指定数据复制到另一工作表符合条件的相应...
    Match([B1], Sheets("基础数据").Range("A:A"), 0)Range("A3:D3").Copy Sheets("基础数据").Cells(X, "a")Sheets("基础数据").SelectSheets("基础数据").Range("a" & X & ":" & "d" & X).Interior.ColorIndex = 3 '修改过的区域填充红色End Sub代码复制到 修改表里 ...

    相似回答
    大家正在搜