öncelikle s.a arkadaşlar ödev yapıcam sözlük çalışması veri tabanı var ama bağlantı kabul edilmiyor hatalı kod kırmızı olandır geçerli bağlantı yoktur çünkü o "friend" tir diyor yardım
Imports System.Data
Imports System.Data.OleDb
Public Class Form3
Dim coon As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.12.0;Data Source='dictionary.mdb'")
Dim kelime, isimfiil, zaman, anlam, inganlam, sql, sql2 As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
kelime = TextBox1.Text
isimfiil = TextBox2.Text
zaman = TextBox3.Text
anlam = TextBox4.Text
inganlam = TextBox5.Text
If kelime = "" Or isimfiil = "" Or zaman = "" Or anlam = "" Or inganlam = "" Then
MessageBox.Show("Lütfen boş alan bırakmayınız")
End If
Sql = "insert into bilgiler (kelime,isimfiil,zaman,anlam) VALUES ('" & kelime & "','" & isimfiil & "','" & zaman & "','" & anlam & "','" & inganlam & "')"
sql2 = "select * from bilgiler"
Dim komut As New OleDbCommand(sql2, coon)
Dim dr As New OleDb.OleDbDataReader
coon.Open()
dr = komut.ExecuteReader
Do While dr.Read
If dr("kelime") = kelime Then
TextBox1.Text = ""
MessageBox.Show("Bu kelime sözlüğümüzde mevcuttur.")
End
End If
Loop
komut.CommandText = sql
komut.ExecuteNonQuery()
coon.Close()
MessageBox.Show("Bilgiler kaydedildi")
End Sub
Imports System.Data
Imports System.Data.OleDb
Public Class Form3
Dim coon As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.12.0;Data Source='dictionary.mdb'")
Dim kelime, isimfiil, zaman, anlam, inganlam, sql, sql2 As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
kelime = TextBox1.Text
isimfiil = TextBox2.Text
zaman = TextBox3.Text
anlam = TextBox4.Text
inganlam = TextBox5.Text
If kelime = "" Or isimfiil = "" Or zaman = "" Or anlam = "" Or inganlam = "" Then
MessageBox.Show("Lütfen boş alan bırakmayınız")
End If
Sql = "insert into bilgiler (kelime,isimfiil,zaman,anlam) VALUES ('" & kelime & "','" & isimfiil & "','" & zaman & "','" & anlam & "','" & inganlam & "')"
sql2 = "select * from bilgiler"
Dim komut As New OleDbCommand(sql2, coon)
Dim dr As New OleDb.OleDbDataReader
coon.Open()
dr = komut.ExecuteReader
Do While dr.Read
If dr("kelime") = kelime Then
TextBox1.Text = ""
MessageBox.Show("Bu kelime sözlüğümüzde mevcuttur.")
End
End If
Loop
komut.CommandText = sql
komut.ExecuteNonQuery()
coon.Close()
MessageBox.Show("Bilgiler kaydedildi")
End Sub
