Visual Basic ile SQL bağlantısı kurdum.
Şimdi SQL'deki tablolarıma verileri Visual Basic üzerinde görsel (arayüz) olarak eklemek istiyorum.
Bu konuda yardımcı olabilecek var mı acaba?
Visual Basic ile SQL Bağlantısı Konusunda Yardımcı Olabilecek Var Mı?
6
●731
- 05-01-2011, 21:04:52Visual Studio kullanıyorum.dizaynart adlı üyeden alıntı: mesajı görüntüle
- 05-01-2011, 23:14:21Imports System.Data.OleDbfuture adlı üyeden alıntı: mesajı görüntüle
Public Class Form1
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=database.mdb;")
cn.Open()
cmd = New OleDbCommand("select count (*) as maxrecord from items", cn)
dr = cmd.ExecuteReader
dr.Read()
msgbox(dr("colon_adi"))
End Sub
End Class
Yukardaki kod basit bir şekilde mdb database ' e bağlanıp ekrana birinci kolonu mesaj kutusu olarak yazdırır.
Database'in çeşitine göre oledb bölümü değiştirilebilir. Kolay gelsin. - 05-01-2011, 23:23:33Bağlantıda problemim yok.mehkar adlı üyeden alıntı: mesajı görüntüle
Bağlantı kurdum, databasedeki sorgular da çalışıyor ama şimdi görsel olarak mesela textbox'a yazı yazıcam, onu butona basınca database'ye insert into yapacak. Bunu yapmak istiyorum.
Mesela araba markaları var, checkboxdan o araba markasını seçip, textboxa arabanın id'sini yazıcam mesela, butona basınca databaseye ekleyecek.
Bu konuda yardımcı olabilecek var mı? - 10-01-2011, 00:29:28Kimlik doğrulama veya yönetimden onay bekliyor.Sana Örneği Vereyim Ama Ben Kendi Kod Sistemimde Yazıyorum Onu Düzenlersin.
Dim StrConn As New SqlConnection(ConfigurationManager.ConnectionStrin gs("SqlServer").ToString())
Dim CmdString As String = "Insert Into [Tablo_Adı] (alan_1,alan_2,alan_3) Values (@a1,@a2,@a3)"
Dim StrComm As New SqlCommand(CmdString, StrConn)
StrComm.Parameters.AddWithValue("@a1", TextBox1.Text)
StrComm.Parameters.AddWithValue("@a2", TextBox2.Text)
StrComm.Parameters.AddWithValue("@a3", TextBox3.Text)
If StrConn.State = Closed = True Then
StrConn.Open()
End If
StrComm.ExecuteNonQuery()
StrConn.Close()
Bu Kodu Butonun İçine Yapıştırsan Çalışmaktadır Ben Db Yolunu Web.Config den çekiyorum 3 adet parametre atadım bu parametreleri de textboxlardan alıyorum ... anladın sanırım