Visual Basic 2008 ile Kullanıcı adı oluşturma ve yetki verme hkk - Sayfa 2

25-11-2010, 13:32:02

#10

kibrix

rob33n adlı üyeden alıntı: mesajı görüntüle

Dostum bundan daha basit bulabilir misin emin değilim. Çünkü video sıfırdan adım adım anlatılıyor. Atıyorum bu videoyu bende çekmiş olsam ve senin için çeksem aynısı olurdu. Bilmiyorum belki ben konuyu biliyorum diye basit geliyordur ama adım adım olduğu için zorlanacağını sanmıyorum. Sadece kendine güven ve uygulamaya başla.

Benim anlamadığımı ifade etmem bilyorsundur çok geniş bir kavram yani senin vermiş olduğun örnekte anlamıyorum dan kastım şu idi ben visual basic 2008 ile bir proje yani bir program yapmak istiyorum ancak senin bana vermiş olduğun linkteki örnek uygulamaya bakıyorum asp site yapımı gibi geldi yani benimle ne alakası var diye düşündüm açıkcası tabi benim bu düşüncemin sebebi işi bilmediğimden ötürü olduğunu biliyorum ancak işte o yüzden de anlamadığım için yani nasıl anlatim bilemiyorum neyapacağımı çözemiyorum benim sizlerden istemiş olduğum şu idi liknte rasgele bir makaleden örnek veriyorum tıklayıp inceleyebilirsiniz böyle bir anlatım veya bir video idi http://www.webhatti.com/windows-xp/2...i-anlatim.html
25-11-2010, 13:51:31

#11

rob33n

Kimlik doğrulama veya yönetimden onay bekliyor.

Sen ilk mesajında site örnepi verdiğin için bende websitesi projesi yapıyorsun diye düşünerekten bu videoyu verdim sana.

25-11-2010, 15:33:11

#12

Üyeliği durduruldu

sıkıntı çıkarırısa ahmetsolmaz1@hotmail.com ekle

mysql.data yı ekle referansdan
kullanici_adi ve sifre diye text box ekle

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

25-11-2010, 16:37:17

#13

kibrix

Arkadaşlar hepinize cidden çok teşekkür ederim ilginiz ve alakanız için

KuzenTasarim sizede teşekkür ederim ancak ben veri tabanı olarak access kullanıyorum acaba ben sizi msn den eklesem bana yardımcı olurmusunuz veya bana sadece bu konuyu içeren bir örnek proje yapıp burada benimle ve tüm benim gibi meraklı arkadaşlar için paylaşabilirmisiniz acaba ?
25-11-2010, 16:51:07

#14

~~KuzenTasarim~~

Üyeliği durduruldu

ahmetsolmaz1@hotmail.com

ekle mysql a geç

25-11-2010, 16:56:29

#15

~~KuzenTasarim~~

Üyeliği durduruldu

http://www.duckload.com/download/112...lication10.rar

alin buda örnek proje

-- 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);

25-11-2010, 17:28:44

#16

kibrix

Kardeş cidden çok saol ilgin ve alakan için ancak ben zaten projeme başlamıştım ve şuan neredeyse bitmek üzere ve ben tamamen access kullandım ancak sende sql kullan demişsin nasıl yapacaz herşey bitti bir tek bu şekilde bir uygulama eklemek istemiş idim ?
25-11-2010, 17:32:29

#17

~~KuzenTasarim~~

Üyeliği durduruldu

mysql kullanırsan internet olmayac pc de çalışmaz
Çok lazımsa yarın mdb de tazarım
25-11-2010, 17:58:12

#18

kibrix

KuzenTasarim adlı üyeden alıntı: mesajı görüntüle

mysql kullanırsan internet olmayac pc de çalışmaz
Çok lazımsa yarın mdb de tazarım

Çok sevinirim iyi olur ancak ben burada ne demek istediğinizi anlayamadım
mysql kullanırsan internet olmayac pc de çalışmaz demişsiniz benim yazacağım program ile bunun alakası nedir acaba? bu aradan benim yaptığım programın print scren

benim msn adresim: maltepe_turkyucel@hotmail.com ben sizi ekledim