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实现数据库 表的列慎迹添加