Question

Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class Final
    Dim objConnection As New SqlConnection _
    ("server=localhost;database=Starbulk;Integrated Security=true;")
    Dim Table_1 As New SqlDataAdapter()
    Dim list As New SqlDataAdapter()
    Dim Table_1_reader As SqlDataReader
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Submit_ID As Integer
        Dim Form_ID As Integer
        Dim Control_ID As Integer
        Dim Row_NO As Integer
        Dim Table_ID As Integer
        Dim Int_Val As Integer
        Dim Decimal_Val As Decimal
        Dim String_Val As String
        Dim Boolean_Val As Integer
        Table_1.SelectCommand = New SqlCommand()
        Table_1.SelectCommand.Connection = objConnection
        Table_1.SelectCommand.CommandText = "SELECT * FROM Table_1 ORDER BY Submit_ID , Control_ID"
        Table_1.SelectCommand.CommandType = CommandType.Text
        objConnection.Open()
        Table_1_reader = Table_1.SelectCommand.ExecuteReader()
        Do While Table_1_reader.Read()
            Submit_ID = Table_1_reader("Submit_ID")
            Control_ID = Table_1_reader("Control_ID")
            If Submit_ID <> Table_1_reader("Submit_ID") Then
                Submit_ID = Table_1_reader("Submit_ID")
                list.SelectCommand = New SqlCommand()
                list.SelectCommand.Connection = objConnection
                list.SelectCommand.CommandText = "INSERT INTO Table_1 (Submit_ID,Form_ID,Control_ID,Row_NO,Table_ID,Int_Val,Decimal_Val,Datetime_Val,String_Val,Boolean_Val) VALUES (" & Submit_ID & ",'" & Form_ID & "," & Control_ID _
& "," & Row_NO & ", '" & Table_ID & ", '" & Int_Val & ", " & Decimal_Val & ", '" & String_Val & ", '" & Boolean_Val & " ' )"
                list.SelectCommand.CommandType = CommandType.Text
                list.SelectCommand.ExecuteNonQuery()
            End If
            Select Case Control_ID
                Case 15569
            End Select
        Loop
        Application.DoEvents()
        Table_1_reader.Close()
        objConnection.Close()
        Table_1 = Nothing
        objConnection = Nothing
    End Sub

嗨我有这个代码，我只能处理一件事。这背后的逻辑是从Table_1获取所有数据，然后在每个control_id的情况下将每一行转换为列。我的control_ID得到一个精确的值范围表格15569到15578所以对于每个特定值的情况，我想打印类似的东西

Submit_id甚至更好，数字1234 1234

controld_id ..................... 15569 15570

form_id ................................. 456 6456

table_id ........................ 23 24
     等等......

现在我的数据库就像submit_id form_id control_id ...所以从水平我想要去垂直任何想法？谢谢。

使用visual basic到列

0 个答案: