0

データベースの値に基づいてボタン/タイルを生成する際に支援が必要です。たとえば、データベースに5人のユーザーがいる場合、フォームに5つのボタンが作成されるため、ロード時にデータベースに接続し、に基づいて5つのボタンに名前を付けますユーザーの名。

私は何かが欠けていることを知っていますが、これまでのところ私が持っているものが何であるかはよくわかりません。

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Windows.Forms
Imports System.Data.SqlClient.SqlDataReader


Public Class Main

    Dim cn As New SqlConnection("Data Source=(LocalDB)\v11.0;AttachDbFilename=C:\Users\Nate\documents\visual studio 2012\Projects\WindowsApplication9\WindowsApplication9\Database1.mdf;Integrated Security=True")
    Dim cmd As New SqlCommand
    Dim dr As SqlDataReader
    Private dataAdapter As New SqlDataAdapter()

    Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Database1DataSet11.StudentTB' table. You can move, or remove it, as needed.
        Me.StudentTBTableAdapter.Fill(Me.Database1DataSet11.StudentTB)

        cmd.Connection = cn
        Dim Ps As Integer
        Dim nm As String
        Ps = StudentTBBindingSource.Count
        nm = "select * from StudentTB"

        Dim I As Integer

        For I = 1 To Ps

            Dim srt As New Button
            srt.Width = 50
            srt.Height = 50
            srt.Text = nm
            srt.Visible = True
            srt.Location = New Point(I * 30, 0)
            Panel1.Controls.Add(srt)

        Next

    End Sub

私はこれをコード化して追加しましたが、それは動作しようとしているようですが、それから私は彼らが位置1に価値がないと言って出てきました

srt.Text = Database1DataSet11.Tables(0).Rows(I).Item("FirstName")
4

1 に答える 1