Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/mysql/72.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Mysql 将表项列为VB的字符串_Mysql_Vb.net_Vba_Visual Studio 2012 - Fatal编程技术网

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