vb数据库表格数据库数据

‘壹’ vb中使用表格控件浏览数据库中的数据

1、用一个ADODC1控件连接你的数据库，在窗口中放一个
表格控件
datagrid1
2、在一事件中（比如按钮单击事件、窗口加载事件）设置以下语句
adodc1.recordsource="select
……"(就是你的查询语句）
adodc1.refresh
set
datagrid1.datasource=adodc1
在最后面加句结束语句:end
sub

‘贰’ vb中怎么实现数据表从一个数据库里复制到另外一个数据库

简单说一下思路，我想代码应该不会很难，首先要创建两个数据库连接，分别指向两个数据库。然后使用select语句从db1中把数据读取出来放到一个结果集中保存起来。然后在使用循环，在循环当中使用insert语句逐条把db1中student表的数据插入到db2的student表就可以了。没有什么技术难度。

‘叁’ 怎样从vb中向数据库里添加数据

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString="" '数据存放路径
conn.Open

Dim sql As String
sql="update 表名 set name='"& Text1.text &"',sex='"& Text2.text &"',phone='"& Text3.text &"'"
rs.open sql,conn,3,3
rs.Close
conn.Close
Text1是姓名文本框，Text2是性别文本框，Text3是电话号码文本框。要注意我写的电话号码是字符型的。希望能帮到你。最好不要插入，更新比较好。

‘肆’ 在VB怎么查询数据库中的数据啊！

1.一个简单的查询的例子：
'*定义一个连接
Dim Conn As ADODB.Connection
'*定义一个记录集
Dim mrc As ADODB.Recordset
'*分别实例化
Set Conn = New ADODB.Connection
set mrc =New ADODB.Recordset
'*定义一个连接字符串
dim ConnectString as string
ConnectString="provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\data\数据库名.mdb;jet oledb:database password=数据库密码"
'*打开连接
Conn1.Open ConnectString
'*定义游标位置
Conn1.CursorLocation = adUseClient
'*查询记录集(从student表中找出名子为"张三"的记录)
mrc.open "select * from student where name='张三'",Conn, adOpenKeyset, adLockOptimistic

'*现在你已经得到了你想要查询的记录集了，那就是mrc
'*你可以把此记录集与DataGrid榜定，用datagrid显示你查询的记录
set me.datagrid.datasource=mrc

‘伍’ 如何用VB代码向数据库中添加数据表

'以下代码可以向当前数据库添加数据表
'(测试OK,添加"Table1"数据表，包含4个字段)：
Set
NewTable
=
CurrentDb.CreateTableDef("Table1")
With
NewTable
.Fields.Append
.CreateField("字段1",
dbText)
.Fields.Append
.CreateField("字段2",
dbText)
.Fields.Append
.CreateField("字段3",
dbText)
.Fields.Append
.CreateField("字段4",
dbText)
End
With
CurrentDb.TableDefs.Append
NewTable

‘陆’ VB如何读取数据库表格中新增加的数据

我有一个比较笨的办法，第一步新建一个表和原表一样，第二步就是在新增数据程序的同时也向新表加入新的一样的数据，并将新表中过去的数据删除（目的就是保证新表只有一条数据是最新的，如果是新增几条，你就留下几条，超过就删除，自己控制）。第三步就是读数据比较，就能找出新的数据来。

‘柒’ vb 界面上显示数据库中的表内容

如果只是简单的显示，那么可以用activex控件里面的dbgrid之类的，把他们绑定到数据源上面就可以显示了。但是具体操作会比较复杂，建议在网上搜索一下dbgrid
vb，搜索结果第一条就讲得很详细

‘捌’ vb如何操作数据库表中的数据

'" + TextBox1.Text + "'"
=后面少了一个"

‘玖’ vb6.0如何实现修改数据库中的数据

从你这个界面看应该有两种办法实现数据更改。你不提供别的有用信息，只能简单说一下了。
1、用 Data 数据控件连接数据库，直接对数据控件中的数据更新
data1.Recordset.Edit
data1.Recordset("性别")=IIF(Option1.Value=True,"男","女")
data1.Recordset("联系方式")=Trim(Text1)
data1.Recordset("邮编")=Trim(Text2)
data1.Recordset("地址")=Trim(Text3)
data1.RecordSet.Update

2、直接用SQL语句对数据进行更新
"Update 信息表 Set 性别='"+IIF(Option1.Value=True,"男","女")+"', 联系方式='"+Trim(Text1)+"', 邮编='"+Trim(Text2)+"', 地址=‘“+Trim(Text3)+"' WHERE 姓名=’XXX‘”

哎，估计我说复杂了，希望对你有帮助...

‘拾’ VB已读取到数据库数据，如何将数据写入Excel表（OLE控件）的某一单元格中，谢谢！

可对Ole控件关联对象的Excel表格的单元格的Value 属性赋值来写入VB已读到的数据。

Value 属性，返回或设置一个Variant型数，它指定该属性之值，此属性可读/写。

以下是实现代码：

OptionExplicit
DimoBokAsObject'定义oBok为Object数据类型

PrivateSubCommand1_Click()
OLE1.CreateLink"C:zhang2012.xls"'打开要写入的Excel表
SetoBok=OLE1.object'将对象引用赋给变量或属性。
oBok.Sheets(1).Range("A1").Value="VB已读取到数据库数据"'将数据写入Excel表的A列第一行
SetoBok=Nothing'使用Nothing关键字被将对象变量从实际对象中分离开来。
EndSub

Object 变量存储为 32 位（4 个字节）的地址形式，其为对象的引用。利用 Set 语句，声明为 Object 的变量可以赋值为任何对象的引用。

注意 虽然以 Object 类型声明的变量足以适应包含对各种对象的引用，但是绑定到变量引用的对象总是在晚期（运行时）绑定。要强迫在早期（编译时间）绑定的话，须将对象的引用赋值给用特定类名称声明的变量。

使用 Nothing 关键字被将对象变量从实际对象中分离开来。要使用
Set 语句将 Nothing 赋值给对象变量。例如：

Set MyObject = Nothing

Set 语句，将对象引用赋给变量或属性。