Form ile yazılı Programa Website Mysql ı Ekleme Nasıl Yapılır?

Question

Önceki Açtıgım Konuda Yeterli Bir İçerik Vermediğimi Düşündüğümden Tekrar Düzgün Bir Şekilde Konuyu Açmaya Karar Verdim

Arkadaşlar Elimde Bir Tane web sitesi var ve ben bir programa giriş arayüzü yazıyorum diyelim.fakat bu arayüze sitedeki üyeler gircek herhangi bir oyunun login ekranı gibi düşünün Fakat siteye yaptıgım giriş programı Websitesine ait mysql dan üye bilgilerine erişemiyor.ve kullanıcı login olamıyor programa.ben bu programı nasıl websitemle arasında baglantı saglarım.

Düzgün bir şekilde bana herhangi bir login ekranı kodu örnek verebilir misiniz.Ben Size Elimdeki Kodu aktarcam.

Siz den istediğim Metin2 gibi oyunlara nasıl sitesinden üye olup oyunu clientinden login olup giriyorsak bende onu yapmak istiyorum.

Sitesine üye olunum id şifresi ile programa girilebilen bir online program.lütfen yardım.

Eğer böle basit şeyleri yapamıcaksam bırakcam bu işi çok basit şeylerde tıkandım garip olan bu konularda kimsede bişey bilmiyor mu yardımlarınızı bekliyorum...

Kandiliniz Mübarek Olsun

Benim Kendi Yazdıklarım Burda :

Public Class Form1
    Public Conexion As SqlClient.SqlConnection
    Dim Accion As String, id As String, sql As String
    Dim res As Integer, nom, email, pass As String
    Dim com As SqlClient.SqlCommand, dr As SqlClient.SqlDataReader
    Dim da As SqlClient.SqlDataAdapter, cb As SqlClient.SqlCommandBuilder
    Dim ds As DataSet
    Public Sub conectar()
        Conexion = New SqlClient.SqlConnection
        Conexion.ConnectionString = ("server=(ipgizli); database=(gizli); Uid=(gizli); Pwd=(gizli); Integrated Security=True")
        Conexion.Open()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Hide()
        Kayıt_Ol.Show()

    End Sub

    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
        Call Me.Verificar()
    End Sub
    Private Sub Verificar()
        id = tu.Text
        pass = tc.Text
        If id = "" Then
            lm.Visible = True
        Else
            lm.Visible = False
        End If
        If pass = "" Then
            lm1.Visible = True
        Else
            lm1.Visible = False
        End If
        If id <> "" And pass <> "" Then
            sql = "exec ver_users '" + id + "'"
            conectar()
            com = New SqlClient.SqlCommand(sql, Conexion)
            dr = com.ExecuteReader
            If dr.Read Then
                If id = dr(0) And pass = dr(3) Then
                    LordClan.lbluser.Text = dr(1)
                    LordClan.Show()
                    Me.Close()
                    UseWaitCursor = True

                Else
                    MsgBox("Contrasena incorrecta", MsgBoxStyle.Exclamation, "Access Denied")
                End If
            Else
                MsgBox("Por favor registrese", MsgBoxStyle.Exclamation, "Access Denied")
            End If
        End If
    End Sub

End Class

Answer 1

http://stackoverflow.com/questions/2269237/connecting-to-a-online-mysql-database-using-vb-net?rq=1

ip bilgilerini host firmandan istersin

---

Bu ileti veya öneriler size yardımcı olduysa "Yanıt olarak işaretle" linkine tıklayınız.

Answer 2

sorunumu çözdüm isteyenler için paylaşıyım bu kullandıgım kod nedense işlemiyor eksik bişe var galiba.

Lazım Olabilcek Kişiler için bunu veriyim bu benim kayıt olma form u buyrun

 Imports MySql.Data.MySqlClient

 Public Class Form1
     Dim applocation, cursorlocation As New Point(0, 0)
     Dim connStr As String = "Database=database isminiz;" & _
         "Data Source=mysql host adresiniz;" & _
         "User Id=kullanıcıadınız;Password=şifreniz;"
     Dim Connection As New MySqlConnection(connStr)

     Function updateRecord(ByVal query As String) As Integer
         Try
             Dim RowsEffected As Integer = 0
             Dim Connection As New MySqlConnection(connStr)
             Dim Cmd As New MySqlCommand(query, Connection)

             Connection.Open()

             RowsEffected = Cmd.ExecuteNonQuery()

             Connection.Close()

             Return RowsEffected

         Catch ex As Exception
             Console.WriteLine(ex.Message)
         End Try
     End Function
     Private Sub SubmitButton_Click(sender As Object, e As EventArgs) Handles SubmitButton.Click

         Console.WriteLine(updateRecord("Insert INTO users (username, password) VALUES ('" & txtusername.Text & "', '" & txtpassword.Text & "')"))

     End Sub

End Class

Bu kodda sadece Console.writeline ..... daki Insert INTO users olan yerde INTO ve Users i değiştirerek herhangi farklı bir şekildede yine kullanabilirsiniz. giriş bölümü şifre değiştirme bölümü vs.

benim sorunum çözülmüştür. isteyen bu kodlada daha güzel bir şekilde yapabilir...