Access ile Giriş Paneli Yardım.

WindTalker · 3 Eyl 2012

HTML:

Dim con As New OleDbConnection Dim com As New OleDbCommand Dim adp As New OleDbDataAdapter Dim dataset As New DataSet con.ConnectionString = ("Provider.Microsoft.Jet.OleDb.4.0;Data Source = C:\Account.mdb") com.CommandText = ("Select = From Account Where Kullanıcı Adı = '" + TextBox1.Text + "' AND Parola = '" + TextBox2.Text + "';") con.Open() com.Connection = con adp.SelectCommand = com adp.Fill(dataset, "0") Dim a = dataset.Tables(0).Rows.Count If a > 0 Then Form2.Show() Me.Hide()

Hatayı Aldığım Satır = con.ConnectionString = ("Provider.Microsoft.Jet.OleDb.4.0;Data Source = C:\Account.mdb")

ConnectionString içinde OLE DB Sağlayıcısı belirtilmedi. Örnek: 'Provider=SQLOLEDB;'. diye bi hata çıkarıyor lütfen yarım edin acil.!

Iwa · 3 Eyl 2012

Connection string yanlış. (Kırmızı nokta)
Provider.Microsoft.Jet.OleDb.4.0;Data Source=

Doğrusu
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=

WindTalker · 3 Eyl 2012

Saol

Şimdiki Hata con.Open() 'C:\Database1.mdb' dosyası bulunamadı. diyor.

Iwa · 3 Eyl 2012

Dosya yok.

Ayrıca query de yanlış

Doğrusu
string.Format("Select * From Account Where KullaniciAdi = '{0}' AND Parola = '{1}'",TextBox1.Text,TextBox2.Text)
edit: column adında boşluk olmaz yeni farkettim kafam bulanık.

WindTalker · 3 Eyl 2012

yaa bi yardım edermisin yaa. bu access'i yapamadım galiba ben :S

Iwa · 3 Eyl 2012

C ye gir Sağ tıkla Yeni -> Microsoft Office Access Uygulamasına tıkla ismini Database1 yap, sonra aç Veriler girerek tablo oluştur de Alan1 yazısnı sil KullaniciAdi yaz Alan2 Parola yaz ve diğerlerini sil ctrl + s yap Tablo adı soracak Account yaz tamam de birşey gelecek evet butonuna bas. Programdan tekrar dene.

WindTalker · 3 Eyl 2012

başka bir anlatım videosu buldum olmazsa döncem size

WindTalker · 3 Eyl 2012

ben giriş panelini hallettim . ama birde üye olmak için panel yapmak istiyorum form2 olarak.
ama üyeliklerin herhangi bir belirlediğim cod veya onayım olmadan kullanılır durumda olmasını istemiyorum acaba bu mümkünmü ?

Iwa · 3 Eyl 2012

WindTalker' Alıntı:
ben giriş panelini hallettim . ama birde üye olmak için panel yapmak istiyorum form2 olarak.
ama üyeliklerin herhangi bir belirlediğim cod veya onayım olmadan kullanılır durumda olmasını istemiyorum acaba bu mümkünmü ?

Server yapacaksın bunun için soketleri öğrenmen lazım.
edit:
Server yapmazsan açık olur rahatca hackleyebilirler.

Cottonmouth · 3 Eyl 2012

WindTalker' Alıntı:
ben giriş panelini hallettim . ama birde üye olmak için panel yapmak istiyorum form2 olarak.
ama üyeliklerin herhangi bir belirlediğim cod veya onayım olmadan kullanılır durumda olmasını istemiyorum acaba bu mümkünmü ?

Tabloya birde onay diye sütun aç 1 ise giriş yapsın 0 yoksa yapmasın. Varsayılan değer 0 olsun. Sen onaylıyacaklarını veritabanından 1 yaparsın. Yada kendin içinde bir form yaparsın orda onaylarsın.

WindTalker · 4 Eyl 2012

anlamadım

----------

Peki 2 Tane Access Veritabanı oluştursam ve 1ini üye olmak için diğerini giriş için kullansam yani üye olanların listesinden giriş listesine elimle taşısam ? sorun olurmu ?

Iwa · 4 Eyl 2012

WindTalker' Alıntı:
anlamadım

----------

Peki 2 Tane Access Veritabanı oluştursam ve 1ini üye olmak için diğerini giriş için kullansam yani üye olanların listesinden giriş listesine elimle taşısam ? sorun olurmu ?

Olmaz.

olmaz derken o dediğin şey olmaz.

WindTalker · 4 Eyl 2012

ŞİMDİ ELİMİZDE 2 TANE ACCESS VERİTABANI OLSUN. BİRİ Login DİGERİ Account OLSUN..
Form1= Giriş
Form2= Üyelik
Form3=Yazılan Program.

FORM1 => GİRİŞ

Imports System.Data.OleDb
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New OleDbConnection
Dim com As New OleDbCommand
Dim adp As New OleDbDataAdapter
Dim dataset As New DataSet
con.ConnectionString = ("Provider=Microsoft.Jet.OleDb.4.0;Data Source = C:\Windows\System32\Login.mdb")
com.CommandText = ("Select * From Account Where KullanıcıAdı = '" + TextBox1.Text + "' AND Parola = '" + TextBox2.Text + "';")
con.Open()
com.Connection = con
adp.SelectCommand = com
adp.Fill(dataset, "0")
Dim a = dataset.Tables(0).Rows.Count
If a > 0 Then
Form3.Show()
Me.Hide()
Else
MsgBox("Kullanıcı Adı veya Parola Hatalı Lütfen Tekrar Deneyiniz!.", MsgBoxStyle.Critical, "Hata")
TextBox1.Clear()
TextBox2.Clear()
End If
End Sub

FORM2 => ÜYELİK ALMA

Imports System.Data.OleDb
Public Class Form2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New OleDbConnection
Dim com As New OleDbCommand
con.ConnectionString = ("Provider=Microsoft.jet.OleDb.4.0;Data Source = C:\Windows\System32\Account.mdb")
con.Open()
com.CommandType = CommandType.Text
com.CommandText = ("Insert Into Account(KullanıcıAdı,Parola)Values('" + TextBox1.Text + "','" + TextBox2.Text + "')")
com.ExecuteNonQuery()
con.Close()
MsgBox("Üyelik Başarıyla Gerçekleşti.", MsgBoxStyle.Information)
End Sub
End Class

Olmaz Mı ?

Iwa · 4 Eyl 2012

Olmaz tek database kullan cottonmouthun dediğin gibi yap onaylamalı yapacaksan, ama bir de server yapman lazım açık olmaması için.

WindTalker · 5 Eyl 2012

yaa benim söylediğim mantıklıydı ama :S

Iwa · 6 Eyl 2012

WindTalker' Alıntı:
yaa benim söylediğim mantıklıydı ama :S

Eğer cottonmouthun dediği gibi yaparsan sonuna and onay = 1 yazacaksın sadece eğer dediğin gibi yaparsan daha fazla sürecek, hangisi mantıklı sen düşün.

Cottonmouth · 7 Eyl 2012

WindTalker' Alıntı:
ŞİMDİ ELİMİZDE 2 TANE ACCESS VERİTABANI OLSUN. BİRİ Login DİGERİ Account OLSUN..
Form1= Giriş
Form2= Üyelik
Form3=Yazılan Program.

FORM1 => GİRİŞ

FORM2 => ÜYELİK ALMA

Olmaz Mı ?

2 tane veritabanı mı . Tablolar ne güne duruyor ?

WindTalker · 8 Eyl 2012

Haklısın