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

  • Soru

  • Ö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

    15 Mayıs 2015 Cuma 23:12

Yanıtlar

  • 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...


    16 Mayıs 2015 Cumartesi 13:06

Tüm Yanıtlar

  • 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.

    16 Mayıs 2015 Cumartesi 11:44
  • 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...


    16 Mayıs 2015 Cumartesi 13:06