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