Mysql 将表项列为VB的字符串
一段时间以来,我一直试图将表中的结果作为字符串输出。每当我在表中使用查询并调用字段表适配器时,它总是显示外键约束异常。我已经删除了所有要测试的主键和外键,但它仍然显示相同的异常。我已尝试使用此代码输出到文本框:Mysql 将表项列为VB的字符串,mysql,vb.net,vba,visual-studio-2012,Mysql,Vb.net,Vba,Visual Studio 2012,一段时间以来,我一直试图将表中的结果作为字符串输出。每当我在表中使用查询并调用字段表适配器时,它总是显示外键约束异常。我已经删除了所有要测试的主键和外键,但它仍然显示相同的异常。我已尝试使用此代码输出到文本框: Public Sub listfields() Dim ds As New DataSet Dim dt As DataTable = ds.Tables.Item("") Dim fieldname As String = Field_nameComboBox
Public Sub listfields()
Dim ds As New DataSet
Dim dt As DataTable = ds.Tables.Item("")
Dim fieldname As String = Field_nameComboBox.SelectedItem
dt = FieldvalueTableAdapter.GetData
Dim i As Integer = 0
While i < dt.Rows.Count
txtbx_field_list.Text = dt.Rows(i).Item("field_name")
txtbx_field_list2.Text = dt.Rows(i).Item("field_value")
txtbx_field_list3.Text = dt.Rows(i).Item("sort_priority")
i += 1
End While
End Sub
Public子列表字段()
Dim ds作为新数据集
Dim dt As DataTable=ds.Tables.Item(“”)
Dim fieldname As String=字段\名称组合框。选择编辑项
dt=FieldvalueTableAdapter.GetData
尺寸i为整数=0
当我
但是,这仅显示数组中的最后一项。有没有一种方法可以使用查询将我想要的数据输出为字符串,或者将结果放入字符串中
谢谢。您正在覆盖每个循环迭代中的每个文本框变量 将“=”更改为“+=”以获取所有项目,
如果需要,请添加分隔符。如果要在一个带有分隔符的文本框中显示所有记录|
使用:
Dim i作为整数=0
而i
我仍然不知道;t你能理解你想要什么:
+---------------------+------------------------------+---------------------+
|名称1 |名称2 |名称3 | Val 1 Val2 Val3 | sort1 sort2 sort3 |
或者你想要
名称1 | val1 | sort1 |
Name2 | val2 | sort2 |
等当然它只会显示最后一个,因为您在每个循环上覆盖
txtbx_字段列表中的数据。那么这是否意味着我应该声明一个数组来存储行,然后将其输出到文本框中?我有点困惑。我该换哪个?txtbx_field_list.Text+=dt.Rows(i).项(“field_name”)?很抱歉我对此不是很清楚。int I=0;var someTextBoxValue=string.Empty//这就是您正在做的:i=“9”而(i<10){someTextBoxValue=i.ToString();i++;}i=0;someTextBoxValue=string.Empty//这就是您想要的:i=“0123456789”而(i<10){someTextBoxValue+=i;i++;}我已将textbox设置为多行,因此需要一种列出数组中项目的方法。我尝试使用console.writeline(dt.rows(I.item)(“field_name”))将代码输出到控制台。但是,它将重复所有条目。因此,与标准的2个输出(T1F和T2F)不同,它将显示T1F T2F T1F T2F T1F T2F等等。非常抱歉。我不太懂你的代码。你的意思是我必须调整一个新变量的大小来存储文本框,比如:dim fieldtext As String=txtbx_field_list.Text——然后声明一个循环:当I Dim i As Integer = 0
While i < dt.Rows.Count - 1
txtbx_field_list.Text += " | " & dt.Rows(i).Item("field_name") & " | " & Environment.NewLine
txtbx_field_list2.Text += " | " & dt.Rows(i).Item("field_value") & " | " & Environment.NewLine
txtbx_field_list3.Text += " | " & dt.Rows(i).Item("sort_priority") & " | " & Environment.NewLine
i += 1
End While