|
VB.Net-Forum - Beitragsübersicht - |
|
Von |
Einsteiger |
Datum |
26. August 2015 um 19:32:22 |
Frage |
Servus =)
Ich habe ein Problem bei der folgenden Umsetzung
Ich stelle eine such Abfrage (Name) über Textbox1.text und möchte erhalten:
Basierend alle 4 Namen des Users betreffend der suche " Suchname mit einbezogen"
der Datenbankaufbau schaut wie folgt aus:
UID = Account ( Gleichbleibend für alle 4 Einträge ) PID = ID der Charakters ( Sich ändernder wert ) Name = Charaktername
Die namen sollen in 4 verschiedenen Labels ausgegeben werden, also jedes Label ein namen das hat ein Design Hintergrund
dazu die wichtigste frage vorab, ist das überhaupt Möglich ?
Ps. Habe die Datenbank nicht selber erstellt, sondern muss mit einer vorgegebenen Arbeiten :-/
hier einmal mein Bisheriger Sourcecode:
Bin für jede Hilfe dankbar
grüße, Sonaca#Region "Optionen" Option Strict On #End Region #Region "Imports" Imports System.IO Imports MySql.Data Imports MySql.Data.MySqlClient #End Region Public Class Form1 #Region "Definitionen" Dim dbCon As MySqlConnection Dim strQuery As String = "" Dim sqlCmd As MySqlCommand Dim DR As MySqlDataReader #End Region #Region "Routinen" Private Sub form1_load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load Label34.Text = " Version " & Application.ProductVersion Getdbdata() End Sub Private Sub Getdbdata() Try dbCon = New MySqlConnection("Server=localhost;Database=kal_db;Uid=My.Settings.LogInID;Pwd=My.Settings.LogInPW") dbCon = New MySqlConnection("Server=localhost;Database=kal_auth;Uid=My.Settings.LogInID;Pwd=My.Settings.LogInPW") strQuery = "Select dbo.Player.name, dbo.Player.UID" & _ "FROM dbo.Player " & _ "Select dbo.Login.ID, dbo.Login.UID, dbo.Login.Type" & _ "FROM dbo.Login " sqlCmd = New MySqlCommand(strQuery, dbCon) dbCon.Open() DR = sqlCmd.ExecuteReader While DR.Read End While Catch ex As Exception MsgBox("FAILURE TO COMINICATE!" & vbCrLf & vbCrLf & ex.Message) End Try End Sub #End Region #Region "Main Menue" 'Suchfeld Private Sub TBCharName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub 'Suche Starten Private Sub PBSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) If TBCharName.Text = "" Then MsgBox("Pleae Enter a Chrakatername") Else strQuery = "SELECT * FROM dbo.Player WHERE Name = '" & TBCharName.Text & "';" End If End Sub |
|
[ Antwort schreiben | Zurück zum VB.Net-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|