如何把list里的多项内容添加到数据库中的一列中(VB)

如题所述

a = List1.ListCount'使用LISTBOX的属性ListCount,确定循环的次数。lst(i) = List1.List(i)NextEnd Sub请将List里的多项内容赋值于数组变量lst(i),用于你写入数据库的语言中.
温馨提示:内容为网友见解,仅供参考
第1个回答  2020-04-05
在添加语句前后加上一个循环语句,检测是否到数据表的末尾以及移动当前记录指针。

如何把list里的多项内容添加到数据库中的一列中(VB)
a = List1.ListCount'使用LISTBOX的属性ListCount,确定循环的次数。lst(i) = List1.List(i)NextEnd Sub请将List里的多项内容赋值于数组变量lst(i),用于你写入数据库的语言中.

vb中,怎么把Listview中的选择的多行,插入到另外一个listview中。
首先,我假设用命令1控制选择项添加到list2里。然后把list1的style属性改成1.Private Sub Command1_Click()Dim i For i = 1 To List1.ListCount - 1 If List1.Selected(i) = True Then List2.AddItem List1.List(i)End If Next i End Sub Private Sub Form_Load()List1.AddItem "1"L...

vb 怎样把多个文本框的内容放入列表框中
依次添加就可以了,类似这样的语句:list1.additem text1.text list1.additem text2.text 等等。

vb中的列表框,如何将内容写入列表框中,求详细解答!!!急用!!谢谢拉...
Vb列表框(ListBox).List1.AddItem "damndk", 0 '添加数据到列表框 List1.RemoveItem (0) '移除列表框指定序列 List1.Clear '列表框清空 List1.Columns = 2 '运行时只读属性,设置列表框滚动方式(value=0 or 2)cnt = List1.ListCount ...

VB编程如何将listbox中选中的多个选项添加至文本输入框?
假定文本框在Form1,列表框在Form2,则以下代码放在Form2:Private Sub List1_Click()Dim s As String, i As Integer For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then If s <> "" Then s = s & ","s = s & List1.List(i)End If Next obj.Text = s End ...

vb6中,listbox中的内容怎么存储到当前目录的TXT中,对应着一行一行的...
保存的代码:On Error Resume Next Dim i As Integer Open App.Path + "\\1.txt" For Output As #1 '可以把文件名更改成自己需要的文件名 For i = 0 To List1.ListCount - 1 Print #3, List1.List(i)Next i Close #1 顺便给个读取的代码:Dim MyString As String Open App.Path ...

VB 如何让ListView选中的内容显示在Textbox中
假设你的数据都存在于数据库中,列名content,并且listview的首列是主键值id,还有已经建立了一个数据库连接对象Conn,那么可以在listview_itemclick事件代码中这样写:Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)Dim sql As String Dim rs As ADODB.Recordset sql = "select ...

VB中如何将一个列表框中的内容一次全部移动到另一个列表框中
Private Sub Command1_Click()For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i)Next i List1.Clear End Sub 这样可以吗

vb listbox 内容更改
Next i End Sub 如果有更复杂或者太多的数据要这样做,推荐先把数据放到数组里操作完 再放回listbox里,否则速度会很慢的。步骤如下:步骤1:把list1里的东西移到一个临时数组里ls()步骤2:用replace把ls()字串里的xxxxx替换为空字串 步骤3:把list里的数据清空 步骤4:把数组ls()的数据填充会...

vb 中如何在两个列表框把一个列表框中的内容舔加到另一个列表框中
Dim x As String x = Me.List1.ListIndex Me.List2.AddItem Me.List1.List(x)Me.List1.RemoveItem (x)

相似回答
大家正在搜