Sorun tam olarak şudur.
Dim con As New FirebirdSql.Data.FirebirdClient.FbConnection
Dim sorgu As String = "select ADI from PERSONEL"
Dim deneme As New FirebirdSql.Data.FirebirdClient.FbDataAdapter(sorgu, con)
con.ConnectionString = "Data Source=localhost;Database=C:\NET.FDB;User=SYSDBA;password=masterkey;Dialect=3;Role=1;Connection lifetime=15;Pooling=true;Packet Size=4096"
con.Open()
Dim ds As New DataSet
deneme.Fill(ds, "PERSONEL")
GridView1.DataSource = ds.Tables(0)
GridView1.DataBind()Bağlantı konusunda hiçbir problem yaşamıyorum. GridView' e tablodaki bilgileri alabiliyorum. GridView de istediğim işlemleri yapabiliyorum kısacası.Fakat ben form tasarımını tamamen textboxlar üzerine kurmak istiyorum örnek veriyorum, tabloda : adı,soyadı,tckimlik gibi tablolar var ben bunların her bir alanını farklı textboxlarda görmek istiyorum. Fakat bu işlemi form üzerine grid eklemeden yapmak istiyorum. Sabahtır uğraşıyorum. Farklı yerlerde sorunlarla karşılaştım.
Aşağıdaki örnekte uygulama hakkında bi örnekli açıklama var fakat burda da şöyle bi sorunla karşılaşıyorum "WebConfigurationManager.ConnectionStrings" kısmında hata alıyorum. Muhtemelen sorunun web.config de veri tabanımla ilgili hiç bir kod bulunmamasından kaynaklandığını düşünmekteyim.
Protected Sub Page_Load(sender As Object, e As EventArgs)
End Sub
Protected Sub LoginButton_Click(sender As Object, e As EventArgs)
UserName.Text = UserName.Text.ToUpper(System.Globalization.CultureInfo.CurrentCulture)
Dim sqlText As String = "select carikart.cari_unvani, carikart.cari_kod, carikart.cari_tip_no,sahislar.sahis_no, sahislar.adi, sahislar.soyadi, sahislar.aktif" & " ,personel.personel_no,carikart.cari_no ,sahislar.web_pin, sahislar.web_pass, sahislar.web_yetkileri from sahislar " & " inner join cariykli on (sahislar.sahis_no = cariykli.sahis_no)" & " inner join carikart on (cariykli.cari_no = carikart.cari_no)" & " inner join personel on (personel.cari_no=carikart.cari_no)" & " WHERE sahislar.AKTIF='E' AND sahislar.WEB_PIN=@KUL AND sahislar.WEB_PASS=@KSIFRE "
Dim cmd As New FbCommand(sqlText, New FbConnection(WebConfigurationManager.ConnectionStrings("ConnStr").ToString()))
Dim prmUserName As New FbParameter("@KUL", FbDbType.VarChar, 50)
prmUserName.Value = UserName.Text
cmd.Parameters.Add(prmUserName)
Dim prmPassword As New FbParameter("@KSIFRE", FbDbType.VarChar, 50)
prmPassword.Value = Password.Text
cmd.Parameters.Add(prmPassword)
cmd.Connection.Open()
Dim dr As FbDataReader = cmd.ExecuteReader()
Dim CariNo As String = ""
Dim Firma As String = ""
Dim Adi As String = ""
Dim Soyadi As String = ""
Dim SahisNo As String = ""
Dim WepAdi As String = ""
Dim WepSifre As String = ""
Dim Personel_no As String = ""
If dr.Read() Then
CariNo = dr("CARI_NO").ToString()
Firma = dr("CARI_UNVANI").ToString()
Adi = dr("ADI").ToString()
Soyadi = dr("SOYADI").ToString()
SahisNo = dr("SAHIS_NO").ToString()
WepAdi = dr("WEB_PIN").ToString()
WepSifre = dr("WEB_PASS").ToString()
Personel_no = dr("PERSONEL_NO").ToString()
End If
dr.Close()
'dr.Dispose();
cmd.Connection.Close()
cmd.Dispose()
Dim culture As New CultureInfo("tr-TR")
If WepAdi.ToUpper(culture) = UserName.Text.ToUpper(culture) Then
FormsAuthentication.SetAuthCookie(WepAdi & ";" & WepSifre & ";" & CariNo & ";" & Firma & ";" & Adi & ";" & Soyadi & ";" & Personel_no & ";" & SahisNo, RememberMe.Checked)
Response.Redirect(Request.ApplicationPath + "/Default.aspx")
End If
End SubÜstteki kod kesin olarak çalışmakta. Fakat benden kaynaklı bir problem var sanıyorum. Tekrar hatırlatıyım Visual Basic.Net arayüzü ile Asp.Net bir web uygulaması yapmaya çalışmaktayım.
Bilgisi, fikri olan varsa şimdiden teşekkürler.