當前位置:首頁 » 操作系統 » vb資料庫表格

vb資料庫表格

發布時間: 2023-07-07 00:34:58

❶ VB中如何使用sql語句與資料庫表格操作

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

熱點內容
java實現文件上傳到ftp 發布:2025-03-18 02:43:25 瀏覽:401
編程出遊戲 發布:2025-03-18 02:43:15 瀏覽:178
使用公網ip搭建伺服器 發布:2025-03-18 02:34:23 瀏覽:215
android從程序員到架構師之路 發布:2025-03-18 02:32:52 瀏覽:298
高壓存儲罐 發布:2025-03-18 02:23:18 瀏覽:760
加密卡怎麼模擬 發布:2025-03-18 02:02:08 瀏覽:271
我的世界伺服器水桶搭建 發布:2025-03-18 02:01:21 瀏覽:334
微信存儲到sd卡 發布:2025-03-18 01:34:29 瀏覽:969
eclipse的自動編譯 發布:2025-03-18 01:34:29 瀏覽:368
可以上傳視頻網站 發布:2025-03-18 01:29:17 瀏覽:933