ACCESS KULLANIYORSANIZ


Imports
System.Data

Imports
System.Data.OleDb



SQL SERVER KULLANIYORSANIZ

Imports
System.Data


Imports
System.Data.SqlClient

---

Dim cnn as new OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data source= & Server.MaPpath("App_Data\veritabani.mdb") &"

Dim cmd as new OleDbCommand

Dim dr as OleDbDatareader





'Formumuza öncelikle Textbox1,Textbox2 ve bir Button ekliyoruz

---

cmd.commandtext = "select * from admin where username='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'"

cmd.connection = cnn

oku = cmd.executereader

If oku.Read = False Then

Response.Write( "yanlış giriş")

oku.Close()

Else
Response.Write( "tamam oldu")

oku.Close()

End If

oku yazan yerde hata veriyor..

iyi guzzelde bunn cnn değişkeni hiç bir değer barındırmıyorki. yanı veritabanını nerden bulacak bu program. aşağıdaki kodlar vb.net e göre hazırlanmıştır. burda vertabanı access, sql e cevirmek size kalmış
 
 
 
Imports System.Data.OleDb
Public Class Form_Personel
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim baglan As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Personel.mdb")
      Dim komut As OleDbCommand
      Dim sql = "SELECT AD,PAROLA FROM KULLANICIADI WHERE AD='" & ComboBox1.Text & "' AND PAROLA='" & TextBox1.Text & "'"
      komut = New OleDbCommand(sql, baglan)
      baglan.Open()
      Dim dr As OleDbDataReader = komut.ExecuteReader
      Try
        If dr.Read = False Then
          MsgBox("Kullanıcı Adı veya Parola yanlış")
        Else
          Form_Kayit.Show()
          Me.Hide()
        End If
      Catch
        MsgBox("Veritabanı ile bağlantı kurulamadı")
      End Try
      baglan.Close()
    End Sub