vb怎麼添加一列數據

Ⅰ vb 怎樣在窗口中添加一個列表顯示access資料庫中的內容

1.新建一個Form1窗體，添加一個查詢按鈕，一個Listview1表格控制項。
2.新建一個模塊，並粘貼以下代碼。
Sub 單列表表頭()
Dim FimgX As ListImage

Form1.ListView1.ColumnHeaders.Clear '清除列標題
Form1.ListView1.ListItems.Clear '清除行數據
Form1.ListView1.View = lvwReport '視圖模式為:報表視圖
Form1.ListView1.FullRowSelect = True '整行選擇
Form1.ListView1.MultiSelect = True '多行選擇
Form1.ListView1.GridLines = True '顯示網格
Form1.ListView1.LabelEdit = lvwManual '禁止編輯第一列

Form1.ListView1.ColumnHeaders.Add 1, , "毀行拆學生編號", 1500
Form1.ListView1.ColumnHeaders.Add 2, , "姓名", 1100, lvwColumnCenter
Form1.ListView1.ColumnHeaders.Add 3, , "性別", 1000, lvwColumnCenter
End Sub

3.在窗體中粘貼以下代碼
Private Sub Command1_Click()
On Error Resume Next
Dim Fliv As ListItem

ListView1.ListItems.Clear

cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\Data.mdb"帶模
sq = "select * from 基本情況 order by 學生編號"
rs.Open sq, cn, adOpenKeyset, adLockOptimistic

If rs.RecordCount = 0 Then
MsgBox "沒有查到數據", vbExclamation, "數據查詢"纖棗
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
Exit Sub
End If

For i = 1 To rs.RecordCount
Set Fliv = ListView1.ListItems.Add()
Fliv.Text = rs.Fields("學生編號")
Fliv.SubItems(1) = rs.Fields("姓名")
Fliv.SubItems(2) = rs.Fields("性別")
Fliv.SubItems(3) = rs.Fields("民族")
rs.MoveNext
Next i
MsgBox "查詢完成", vbInformation, "查詢"

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

Private Sub Form_Load() '載入表格的標題頭
單列表表頭
End Sub

Ⅱ 用VB語句 給SQL數據表添加一列 或者刪除一列

添加一列就是添加數據表的欄位！
添加欄位不僅僅需要欄位名，還需要欄位的悔行數據類型，欄位大小，以及欄位插入到數據表的什麼位置諸多數據，你僅僅提供欄位名碧旁嘩，沒有其他數據，無法創建！
相對來說，刪除字啟或段比較簡單一點。

Ⅲ 請問如何把list里的多項內容添加到資料庫中的一列中(VB)

a = List1.ListCount'森弊使用LISTBOX的屬性ListCount，確定循環的次數。
lst(i) = List1.List(i)NextEnd Sub請將List里的多項內容中亮賦賣春寬值於數組變數lst(i),用於你寫入資料庫的語言中.

Ⅳ VB 如何給combo的list中添加數據

VB使用AddItem 方法給ComboBox控制項添加數據。

AddItem 方法，用於將項目添加到 ListBox 或 ComboBox 控制項。不支持命名參數。

PrivateSubForm_Click()
DimEntry,I,Msg稿哪'聲明變數。
Msg="點OK增加100項到ComboBox控制項"
MsgBoxMsg'顯示信息。
ForI=1To100'計數歷敬鬧值從1到100。
Entry="Entry"&I'創建輸入項。
Combo1.AddItemEntry'添加該輸入項。
肢罩NextI
EndSub

Ⅳ vb.net 一個數組怎麼添加新數據

list1.additem j 意思就是把j添加至list1列表中,這是在一個for 循環中，循攜賣碼環了10次，添加了10次 j，即 list1 中 有10列分別為：1,3,6,10,15,21,28,36,45,55

下面又來了一個循環， list1.removeitem 刪除列，刪除的是辯哪 list1.listcount - i ，list1.listcount 就是總列數為10，減去 i ，i 是1到4，即10-1，9-2，8-3，7-4 每減掉一次，list1.listcount 就少了一條記錄。

(注意，list1.listcount-1 是最後一條記錄)

減掉了第 9，7，5，3列

剩餘為 1,3,6,15,28,45

結果為：3,15,28

'ListCount返回列表框中的項目總數
'ListCount-1是列表框中最後一個項目的索引號

'虧你提醒了，我寫錯了，上面修改了，第一個索引為0，最後一個為9.
'也就是，問題所問的第二列的索引為配遲1，第四列的索引為3...

Ⅵ VB如何將數據添加到數據表指定欄位指定行中

按你的說法是指定的行已經存在了，那麼首坦基枝先要找到指定的行，然後直接更改指定行的指定鋒攜欄位的值就可以了，先給你一個簡單的辦法，查找指定行的指定欄位：
sql = "select L1 from B1 where ID = 3"'這個是ID=3那一行的L1那個欄位
rs.open sql,conn,1,1
rs("L1")= aa 'aa是變數，也可以直接給值讓敏
rs.update
最快的辦法當然是直接update了。

Ⅶ 如何在vb組合框中添加數據

1、用VS2012新建一個VB窗口吵御正應用程序，進入窗體設計視圖，添加一個菜單。

2、右擊需要更改為組合框的菜單拆空項，在彈出的內容選擇「轉換為」->"ComboBox"。

3、對應的菜單項便由按鈕變成了組合框。

4、運行程序可以看到剛剛添加的「串口」菜單項是以組合框的形式升悔出現的。

5、結束調試，回到窗體設計，右擊「串口」菜單項，選擇「屬性」。

6、關注「設計」下的Name，這個就是剛剛添加的組合框菜單項的名稱，可以通過這個名稱對該菜單項進行操作，可以看到在VS2012的VB中是可以使用漢字作為控制項名稱的。

7、在窗體的Load事件中添加該組合框的初始化代碼，即添加「串口1」、「串口2」、「串口3」等。

Ⅷ vb中如何在listview中添加數據

Private Sub Command1_Click()
Dim xx As ListItem
Set xx = ListView1.ListItems.Add(, , "1111"歲洞迅)
xx.SubItems(1) = "2222"
xx.SubItems(2) = "3333"
End Sub

Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "乎此第1列", 1000
ListView1.ColumnHeaders.Add , , "第2列", 1000
ListView1.ColumnHeaders.Add , , "第3列"顫燃, 1000
End Sub

Ⅸ vb.net實現資料庫的表增加一列

一種是用ADO.NET來寬皮並執握空行alter table student add english int實現資料庫 表的列慎跡添加