vb数据库表格
Private
Sub
Command2_Click()
If
Adodc1.Recordset.EOF
=
False
Then
c
=
MsgBox("您确认要删除该记录吗？",
vbOKCancel,
"删除提示信息")
If
c
=
vbOK
Then
Adodc1.Recordset.Delete
Adodc1.RecordSource
=
"select
*
from
人员表"
Adodc1.Refresh
End
If
Else
MsgBox
"当前数据库中没有可删除的数据记录",
vbOKOnly,
"提示信息"
End
If
End
Sub
这就是一个删除按钮的代码，希望对你有帮助
❷ VB 从SQL数据库中把数据导出到Excel表格中，怎么写
SubdataToExcel()
DimconnAsString
DimrsAsNewADODB.Recordset
DimexcelAsObject
DimworkbookAsObject
DimsheetAsObject
Dimi&,j&
'SQL数据库的连接字串
conn="Provider=SQLOLEDB.1;Datasource=服务器地址;initialcatalog=数据库名称;UserId=数据库登录账号;Password=数据库登录账号"
'打开到sql的连接，读取xxx表数据到rs
rs.Open"select*fromxxx",conn,adOpenKeyset,adLockReadOnly
'excel对象、工作簿、工作表
Setexcel=CreateObject("Excel.Application")
Setworkbook=excel.workbooks().Add()
Setsheet=workbook.sheets(1)
excel.Visible=True
'循环读取rs并写入到excel
Fori=1Tors.Fields.Count
j=1
rs.MoveFirst
DoWhileNotrs.EOF
sheet.cells(j,i)=rs.Fields(i-1).Value
rs.MoveNext
j=j+1
Loop
Next
rs.Close
Setrs=Nothing
EndSub
❸ vb在access数据库中如何创建新表
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库名.mdb"
cn.Execute "select * into table2 from table1 where false"
cn.Close
End Sub
如果在复制表结构的同时也复制数据，那么就
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库名.mdb"
cn.Execute "select * into table2 from table1"
cn.Close
End Sub
❹ 如何用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中使用表格控件浏览数据库中的数据
1、用一个ADODC1控件连接你的数据库，在窗口中放一个
表格控件
datagrid1
2、在一事件中（比如按钮单击事件、窗口加载事件）设置以下语句
adodc1.recordsource="select
……"(就是你的查询语句）
adodc1.refresh
set
datagrid1.datasource=adodc1
在最后面加句结束语句:end
sub
❻ VB创建数据库表
一、 创建数据库：
在DAO中用CreatDataBase方法可以根据用户需求动态的创建数据库。这一点在程序中是非常有用的。用户可以根据要求实时建立数据库。建立过程如下：
Private Sub Com_creat_Click()
On Error GoTo Err100
CreatDataBase "数据库名称.mdb" ，dbLangGeneral
Msgbox "数据库建立完毕"
Exit Sub
Err100:
MsgBox "不能建立数据库! " & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub
这样，数据库便在当前默认的路径下建立了。
二、 创建表与字段：
建立数据库后，则需要在该数据库中建立表，这要用到TableDef 对象。先定义一个TableDef类型的对象，然后用TableDef集合中Append方法将之追加到数据库当中去。并且同时定义一个Field对象，用CreatFiele的方法创建一个Field对象，向表中添加字段。例如:
Private Sub Com_table_Click()
On Error GoTo Err100
Dim Defdb As DataBase
Dim NewTable As TableDef
Dim NewField As Field
Set Defdb = Workspaces(0).OpenDatabase (App.path & "\数据库名称.mdb" ,0, False)
Set NewTable = DefDataBase.CreateTableDef("表名")
Set NewField = DefTable.CreateField( "字段名" , dbText ,6) ′创建一个字符型的字段，长度为6个字符
DefTableFields.Append NewField ′字段追加
DefDatabase.TableDefs.Append NewTable ′表追加
Msgbox " 表建立完毕 "
Exit Sub
Err100:
MsgBox "对不起，不能建立表。请先再建表前建立数据库？", vbCritical
End Sub