import edeceklerin

Imports MySql.Data.MySqlClient
Imports System.Threading

Bunlar Giriş Butonu



    Private Sub giris_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles giris.Click
        Dim con As New MySqlConnection
        con = New MySqlConnection
        con.ConnectionString = "server=; user id=sql01_49942; password= ;database=sql01_4994sohbet"


        Try
            con.Open()


        Catch myerror As MySqlException
            MsgBox("Veri Tabanı Hatası")
        End Try
        Dim myadapter As New MySqlDataAdapter
        Dim sqlquery = "Select * from uyeler where Kullaniciadi = '" + kullanici_adi.Text + "' and sifre = '" + sifre.Text + "' and durum='" + durum.Text + "' and suan='" + suan.Text + "'"

        Dim mycommand As New MySqlCommand
        mycommand.Connection = con
        mycommand.CommandText = sqlquery


        myadapter.SelectCommand = mycommand
        Dim mydata As MySqlDataReader

        mydata = mycommand.ExecuteReader



        If mydata.HasRows = 0 Then
            MsgBox("Kullanıcı Bilgileriniz Yanlış, Uyeliğiniz Onaylanmamış Yada Kullanıcı Aktif Durumda")
        Else

            sohbetf.Show()
            kullanici_adi.Enabled = False
            sifre.Enabled = False
            Label1.Enabled = False
            Label2.Enabled = False
            giris.Enabled = False
            kayit.Enabled = False

            While mydata.Read
                Label43.Text = mydata("id")
            End While

            'Kod devamı gelır
        End If
    End Sub

Sql Kodları

-- phpMyAdmin SQL Dump
-- version 3.2.5
-- http://www.phpmyadmin.net
--
-- Anamakine: localhost
-- Üretim Zamanı: 15 Kasım 2010 saat 14:39:01
-- Sunucu sürümü: 5.0.91
-- PHP Sürümü: 5.2.9

SET SQL_MODE="NO_AUTO_VALUE_ON_ZERO";


/*!40101 SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT */;
/*!40101 SET @OLD_CHARACTER_SET_RESULTS=@@CHARACTER_SET_RESULTS */;
/*!40101 SET @OLD_COLLATION_CONNECTION=@@COLLATION_CONNECTION */;
/*!40101 SET NAMES utf8 */;

--
-- Veritabanı: `sql01_4994sohbet`
--

-- --------------------------------------------------------

--
-- Tablo yapısı: `ayar`
--

CREATE TABLE IF NOT EXISTS `ayar` (
  `surum` varchar(10) character set latin5 NOT NULL,
  `ip` varchar(20) character set latin5 NOT NULL,
  `port` varchar(5) character set latin5 NOT NULL,
  `link` varchar(100) NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

--
-- Tablo döküm verisi `ayar`
--

INSERT INTO `ayar` (`surum`, `ip`, `port`, `link`) VALUES
('beta', '95.7.140.199', '2010', 'http://domain.com/link.zip');

-- --------------------------------------------------------

--
-- Tablo yapısı: `duyuru`
--

CREATE TABLE IF NOT EXISTS `duyuru` (
  `id` int(10) NOT NULL auto_increment,
  `baslik` varchar(255) character set latin5 NOT NULL,
  `icerik` text character set latin5 NOT NULL,
  `tarih` varchar(255) character set latin5 NOT NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 AUTO_INCREMENT=2 ;

--
-- Tablo döküm verisi `duyuru`
--

INSERT INTO `duyuru` (`id`, `baslik`, `icerik`, `tarih`) VALUES
(1, 'Ks Sohbet Beta', 'KS sohbet beta sürümüyle karşınızda\r\n\r\nOda isteyenler veya çeşitli programlarda kullanmak isteyenlar için ahmetsolmaz1@hotmail.com', '15.11.2010');

-- --------------------------------------------------------

--
-- Tablo yapısı: `uyeler`
--

CREATE TABLE IF NOT EXISTS `uyeler` (
  `kullaniciadi` varchar(50) character set latin5 NOT NULL,
  `sifre` varchar(50) character set latin5 NOT NULL,
  `sozluk` varchar(50) character set latin5 NOT NULL,
  `durum` int(1) NOT NULL,
  `suan` int(1) NOT NULL,
  `id` int(10) NOT NULL auto_increment,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 AUTO_INCREMENT=20 ;

--
-- Tablo döküm verisi `uyeler`
--

INSERT INTO `uyeler` (`kullaniciadi`, `sifre`, `sozluk`, `durum`, `suan`, `id`) VALUES
('zen ci', 'asdasdasd', 'zen ci', 1, 0, 15),
('burayaneyaziyok', 'sifremyok1', 'sanane', 1, 0, 19),
('admin', 'admin', 'admin', 1, 0, 14);

Kayıt İstersen

tamamla diye botun koy

Text Boxlar

Kullanici_Adi
sifre
sozluk_nick ' bu Msn için



Private Sub tamamla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tamamla.Click
        Dim con As MySqlConnection

        con = New MySqlConnection
        con.ConnectionString = "server=; user id=sql01_49942; password=;database=sql01_4994sohbet"
        Try
            con.Open()

        Catch ex As Exception
            MsgBox("Bağlantı Hatası Geçici Olabilir")
        End Try
        Dim myadapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM uyeler WHERE kullaniciadi = '" + kullanici_adi.Text + "'"
        Dim mycommand As New MySqlCommand
        mycommand.Connection = con
        mycommand.CommandText = sqlquery
        myadapter.SelectCommand = mycommand
        Dim mydata As MySqlDataReader
        mydata = mycommand.ExecuteReader

        If mydata.HasRows = 0 Then

            con.Close()
            con.Open()
            Dim registerfinal As New MySqlDataAdapter

            sqlquery = "INSERT INTO uyeler(kullaniciadi, sifre, sozluk, durum) VALUES ('" + kullanici_adi.Text + "','" + sifre.Text + "','" + sozluk_nick.Text + "','" + yetki.Text + "')"
            mycommand.Connection = con
            mycommand.CommandText = sqlquery

            registerfinal.SelectCommand = mycommand
            mydata = mycommand.ExecuteReader
            MsgBox("kayıt Tamamladı Teşekkürler.")
            Me.Close()
        Else
            MsgBox("Kayıtlı Kullanıcı Adı")
            Me.Close()

        End If