Beyaz Eşya Sitesi – ASP.NET

Beyaz Eşya Sitesi – ASP.NET

 

 

 

 

Beyaz Eşya satış sitesi Visual Basic VB Asp net kodları kullanılarak yapılmıştır.Sitede Şifreli Kullanıcı girişi,Üye ol,beyaz eşya satımı,beyaz eşya ekle,beyaz eşya sil,beyaz eşya düzenle  bilgisine ulaşabilirsiniz.Siteyi En altta bulunan Siteyi İNDİR linkinden bilgisayarınıza indirip kodları inceleyebilirsiniz.Siteyi indirdikten sonrar rar çıkartınız.Visual Studio programını açınız. File – Open – Web Site seçeneklerine tıklayarak ekrana gelen menüden sitenin bulunduğu klasörü seçip Open diyoruz.

 

anasayfa.aspx kodları;

[code lang=”html”]

<%@ Page Language="VB" MasterPageFile="~/master1.master" AutoEventWireup="false" CodeFile="anasayfa.aspx.vb" Inherits="anasayfa" title="Untitled Page" %>

<%– Add content controls here –%><asp:Content ID="Content1" runat="server"
contentplaceholderid="ContentPlaceHolder1">

<table style="width: 85%; height: 112px;">
<tr>
<td class="style3" style="text-align: left; width: 174px; height: 7px;">
&nbsp;</td>
<td class="style3" style="text-align: left; height: 7px; width: 141px;">
<asp:Label ID="Label2" runat="server" Text="KULLANICI ADI"></asp:Label>
</td>
<td class="style6" style="width: 166px; text-align: left; height: 7px;">
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
</td>
<td class="style6" style="width: 214px; text-align: left; height: 7px;">
<asp:Label ID="Label1" runat="server"></asp:Label>
</td>
</tr>
<tr>
<td class="style4" style="text-align: left; width: 174px;">
&nbsp;</td>
<td class="style4" style="text-align: left; width: 141px;">
<asp:Label ID="Label3" runat="server" Text="SİFRE"></asp:Label>
</td>
<td class="style1" style="width: 166px; text-align: left">
<asp:TextBox ID="TextBox2" runat="server" TextMode="Password"></asp:TextBox>
&nbsp;</td>
<td class="style1" style="width: 214px; text-align: left">
&nbsp;</td>
</tr>
<tr>
<td class="style4" style="width: 174px">
&nbsp;</td>
<td class="style4" style="width: 141px">
&nbsp;
</td>
<td class="style1" style="width: 166px; text-align: left">
<asp:Button ID="Button1" runat="server" Text="Giriş Yap" />
</td>
<td class="style1" style="width: 214px; text-align: left">
&nbsp;</td>
</tr>
<tr>
<td class="style4" style="width: 174px">
&nbsp;</td>
<td class="style4" style="width: 141px; text-align: left">
&nbsp;</td>
<td class="style1" style="width: 166px; text-align: left">
<asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl="~/uyeekle.aspx">Üye
Olmak İstiyorum</asp:HyperLink>
</td>
<td class="style1" style="width: 214px; text-align: left">
<asp:HyperLink ID="HyperLink2" runat="server" NavigateUrl="~/parolo.aspx">Parolomu
Unuttum</asp:HyperLink>
</td>
</tr>
</table>

</asp:Content>

[/code]

anasayfa.aspx.vb kodları;

[code lang=”vb”]

Imports System.Data
Imports System.Data.OleDb

Partial Class anasayfa
Inherits System.Web.UI.Page
Dim baglan As New OleDbConnection("Provider=Microsoft.ACE.OleDB.12.0;Data Source=" & Server.MapPath("App_Data\ders.accdb"))

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
‘www.gorselprogramlama.com
Session("kadi") = TextBox1.Text
Dim sifre As String = TextBox2.Text
Dim adp As New OleDbDataAdapter("select * from uyler where kul_adi=’" & Session("kadi") & "’ and sifre=’" & sifre & "’", baglan)
Dim dt As New DataTable
adp.Fill(dt)
Dim i As Integer = 0
For Each satir In dt.Rows
i += 1
Session("id") = satir(0)
Session("ad") = satir(1)
Session("soyad") = satir(2)
Session("yetki") = satir(8)
Next
If i = 0 Then
Label1.Text = "kullanıcı adı ve şifre hatalı"
Else
If Session("yetki") = "admin" Then
Response.Redirect("buzdolabiekle.aspx")
Else
Response.Redirect("buzdolabi.aspx")
End If
End If
‘www.gorselprogramlama.com
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Session("r1") = False
Session("r2") = False
Session("r3") = False
Session("r4") = False
‘www.gorselprogramlama.com
End Sub

End Class

[/code]

bulasik.aspx kodları;

[code lang=”html”]

<%@ Page Language="VB" MasterPageFile="~/master1.master" debug="true" AutoEventWireup="false" CodeFile="bulasik.aspx.vb" Inherits="bulasik" title="Untitled Page" %>

<%– Add content controls here –%><asp:Content ID="Content1" runat="server"
contentplaceholderid="ContentPlaceHolder1">
<table style="width:100%;">
<tr>
<td>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:ConnectionString2 %>"
ProviderName="<%$ ConnectionStrings:ConnectionString2.ProviderName %>"

SelectCommand="SELECT [Model], [Açıklama], [Resim], [Kimlik] FROM [bulasik]">
</asp:SqlDataSource>
</td>
</tr>
<tr>
<td>
<asp:DataList ID="DataList1" runat="server" DataSourceID="SqlDataSource1"
RepeatColumns="2" DataKeyField="Kimlik">
<ItemTemplate>
<table style="width:100%; height: 156px;">
<tr>
<td align="center">
<asp:Image ID="Image1" runat="server" Height="83px"
ImageUrl='<%# Eval("Resim") %>’ Width="89px" />
</td>
</tr>
<tr>
<td align="center">
<asp:Label ID="ModelLabel" runat="server" ForeColor="#CC0000"
Text='<%# Eval("Model") %>’ />
</td>
</tr>
<tr>
<td align="center" style="height: 23px">
&nbsp;</td>
</tr>
<tr>
<td align="center">
<asp:LinkButton ID="LinkButton2" runat="server" commandname="bilgi" commandargument='<%#databinder.eval(container.dataitem,"Kimlik")%>’>Ayrıntılar</asp:LinkButton>
</td>
</tr>
</table>
<br />
</ItemTemplate>
</asp:DataList>
</td>
</tr>
<tr>
<td>
&nbsp;</td>
</tr>
</table>
</asp:Content>

[/code]

bulasik.aspx.vb kodları;

[code lang=”vb”]

Imports System.Data
Imports System.Data.OleDb
Partial Class bulasik
Inherits System.Web.UI.Page
Dim baglan As New OleDbConnection("Provider=Microsoft.ACE.OleDB.12.0;Data Source=" & Server.MapPath("App_Data\ders.accdb"))

Protected Sub DataList1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList1.ItemCommand
If e.CommandName = "bilgi" Then
Response.Redirect("ozellikler.aspx?Kimlik=" + e.CommandArgument)
End If

End Sub

End Class

[/code]

buzdolabi.aspx kodları;

[code lang=”html”]

<%@ Page Language="VB" MasterPageFile="~/master1.master" AutoEventWireup="false" CodeFile="buzdolabi.aspx.vb" Inherits="buzdolabi" title="Untitled Page" %>

<%– Add content controls here –%><asp:Content ID="Content1" runat="server"
contentplaceholderid="ContentPlaceHolder1">

<asp:DataList ID="DataList1" runat="server" DataSourceID="SqlDataSource1"
RepeatColumns="2">
<ItemTemplate>
<br />
<table style="width:100%;">
<tr>
<td align="center">
<asp:Image ID="Image1" runat="server" Height="130px"
ImageUrl='<%# Eval("Resim") %>’ Width="90px" />
</td>
</tr>
<tr>
<td align="center">
<asp:Label ID="ModelLabel" runat="server" ForeColor="Red"
Text='<%# Eval("Model") %>’ />
</td>
</tr>
<tr>
<td align="center" style="height: 23px">
&nbsp;</td>
</tr>
<tr>
<td align="center">

<asp:LinkButton ID="LinkButton1" runat="server" commandname="bilgi" commandargument='<%#databinder.eval(container.dataitem,"Kimlik")%>’>Ayrıntılar</asp:LinkButton>

<br />

</td>
</tr>
</table>
</ItemTemplate>
</asp:DataList>
<br />

<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\ders.accdb;Persist Security Info=True"
ProviderName="System.Data.OleDb"
SelectCommand="SELECT [Model], [Resim], [Kimlik] FROM [buzdolabi]">
</asp:SqlDataSource>

</asp:Content>

[/code]

buzdolabi.aspx.vb kodları;

[code lang=”vb”]

Imports System.Data
Imports System.Data.OleDb
Partial Class buzdolabi
Inherits System.Web.UI.Page

Dim baglan As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Server.mappath("app_data/ders.accdb"))

Protected Sub DataList1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList1.ItemCommand
If e.CommandName = "bilgi" Then
Response.Redirect("ozellikler2.aspx?Kimlik=" + e.CommandArgument)
End If
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub
End Class

[/code]

makine.aspx kodları;

[code lang=”html”]

<%@ Page Language="VB" MasterPageFile="~/master1.master" AutoEventWireup="false" CodeFile="makine.aspx.vb" Inherits="makine" title="Untitled Page" %>

<%– Add content controls here –%><asp:Content ID="Content1" runat="server"
contentplaceholderid="ContentPlaceHolder1">

<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:ConnectionString %>"
ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>"
SelectCommand="SELECT [Model], [Açıklama], [Resim], [Kimlik] FROM [makine]">
</asp:SqlDataSource>
<br />
<br />
<asp:DataList ID="DataList1" runat="server"
DataSourceID="SqlDataSource1" RepeatColumns="2">
<ItemTemplate>
<br />
<table style="width:100%;">
<tr>
<td align="center">
<asp:Image ID="Image1" runat="server" Height="85px"
ImageUrl='<%# Eval("Resim") %>’ Width="93px" />
</td>
</tr>
<tr>
<td align="center">
<asp:Label ID="ModelLabel" runat="server" ForeColor="#CC0000"
Text='<%# Eval("Model") %>’ />
</td>
</tr>
<tr>
<td align="center">
<asp:LinkButton ID="LinkButton1" runat="server" commandname="bilgi" commandargument='<%#databinder.eval(container.dataitem,"Kimlik")%>’>Ayrıntılar</asp:LinkButton>
</td>
</tr>
</table>
<br />
</ItemTemplate>
</asp:DataList>

</asp:Content>

[/code]

makine.aspx.vb kodları;

[code lang=”vb”]

Partial Class makine
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

Protected Sub DataList1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList1.ItemCommand
If e.CommandName = "bilgi" Then
Response.Redirect("ozellikler3.aspx?Kimlik=" + e.CommandArgument)
End If
End Sub
End Class

[/code]

pisiriciler.aspx kodları;

[code lang=”html”]
<%@ Page Language="VB" MasterPageFile="~/master1.master" AutoEventWireup="false" CodeFile="pisiriciler.aspx.vb" Inherits="pisirici" title="Untitled Page" %>

<%– Add content controls here –%><asp:Content ID="Content1" runat="server"
contentplaceholderid="ContentPlaceHolder1">

<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:ConnectionString %>"
ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>"

SelectCommand="SELECT [Model], [Resim], [Kimlik], [Açıklama] FROM [pisirici]">
</asp:SqlDataSource>
<asp:DataList ID="DataList2" runat="server" DataSourceID="SqlDataSource1"
RepeatColumns="2">
<ItemTemplate>
<table style="width:100%;">
<tr>
<td align="center">
<asp:Image ID="Image2" runat="server" Height="81px"
ImageUrl='<%# Eval("Resim") %>’ Width="102px" />
</td>
</tr>
<tr>
<td align="center">
<asp:Label ID="ModelLabel" runat="server" ForeColor="#CC0000"
Text='<%# Eval("Model") %>’ />
</td>
</tr>
<tr>
<td align="center">
<asp:LinkButton ID="LinkButton1" runat="server" commandname="bilgi" commandargument='<%#databinder.eval(container.dataitem,"Kimlik")%>’>Ayrıntılar</asp:LinkButton>
</td>
</tr>
</table>
<br />
</ItemTemplate>
</asp:DataList>
<br />
<br />

</asp:Content>

[/code]

pisiriciler.aspx.vb kodları;

[code lang=”vb”]

<%@ Page Language="VB" MasterPageFile="~/master1.master" AutoEventWireup="false" CodeFile="pisiriciler.aspx.vb" Inherits="pisirici" title="Untitled Page" %>

<%– Add content controls here –%><asp:Content ID="Content1" runat="server"
contentplaceholderid="ContentPlaceHolder1">

<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:ConnectionString %>"
ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>"

SelectCommand="SELECT [Model], [Resim], [Kimlik], [Açıklama] FROM [pisirici]">
</asp:SqlDataSource>
<asp:DataList ID="DataList2" runat="server" DataSourceID="SqlDataSource1"
RepeatColumns="2">
<ItemTemplate>
<table style="width:100%;">
<tr>
<td align="center">
<asp:Image ID="Image2" runat="server" Height="81px"
ImageUrl='<%# Eval("Resim") %>’ Width="102px" />
</td>
</tr>
<tr>
<td align="center">
<asp:Label ID="ModelLabel" runat="server" ForeColor="#CC0000"
Text='<%# Eval("Model") %>’ />
</td>
</tr>
<tr>
<td align="center">
<asp:LinkButton ID="LinkButton1" runat="server" commandname="bilgi" commandargument='<%#databinder.eval(container.dataitem,"Kimlik")%>’>Ayrıntılar</asp:LinkButton>
</td>
</tr>
</table>
<br />
</ItemTemplate>
</asp:DataList>
<br />
<br />

</asp:Content>

[/code]

sepet.aspx kodları;

[code lang=”html”]

<%@ Page Language="VB" MasterPageFile="~/master1.master" AutoEventWireup="false" CodeFile="sepet.aspx.vb" Inherits="sepet" title="Untitled Page" %>

<%– Add content controls here –%><asp:Content ID="Content1" runat="server"
contentplaceholderid="ContentPlaceHolder1">
<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False"
DataKeyNames="Kimlik" DataSourceID="SqlDataSource1">
<Columns>
<asp:BoundField DataField="Model" HeaderText="Model" SortExpression="Model" />
<asp:BoundField DataField="Açıklama" HeaderText="Açıklama"
SortExpression="Açıklama" />
<asp:BoundField DataField="Resim" HeaderText="Resim" SortExpression="Resim" />
<asp:BoundField DataField="Fiyat" HeaderText="Fiyat" SortExpression="Fiyat" />
<asp:BoundField DataField="EnerjiTüketimi" HeaderText="EnerjiTüketimi"
SortExpression="EnerjiTüketimi" />
</Columns>
</asp:GridView>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\ders.accdb;Persist Security Info=True"
ProviderName="System.Data.OleDb" SelectCommand="SELECT * FROM [sepet]">
</asp:SqlDataSource>
<asp:Button ID="Button1" runat="server" Text="Satın al" />
</asp:Content>

[/code]

sepet.aspx.vb kodları;

[code lang=”vb”]

Imports System.Data
Imports System.Data.OleDb
Partial Class sepet
Inherits System.Web.UI.Page
Dim baglan As New OleDbConnection("Provider=Microsoft.ACE.OleDB.12.0;Data Source=" & Server.MapPath("App_Data\ders.accdb"))
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
baglan.Open()
Dim cmnd As New OleDbCommand
cmnd.Connection = baglan
cmnd.CommandText = ("delete * from sepet")
cmnd.ExecuteNonQuery()
baglan.Close()

End Sub
End Class

[/code]

televizyon.aspx kodları;

[code lang=”html”]

<%@ Page Language="VB" MasterPageFile="~/master1.master" AutoEventWireup="false" CodeFile="televizyon.aspx.vb" Inherits="televizyon" title="Untitled Page" %>

<%– Add content controls here –%><asp:Content ID="Content1" runat="server"
contentplaceholderid="ContentPlaceHolder1">

<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:ConnectionString %>"
ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>"

SelectCommand="SELECT [Kimlik], [Açıklama], [Model], [Resim] FROM [televizyon]">
</asp:SqlDataSource>
<br />
<asp:DataList ID="DataList2" runat="server" DataSourceID="SqlDataSource1"
RepeatColumns="2">
<ItemTemplate>
<table style="width:100%;">
<tr>
<td align="center">
<asp:Image ID="Image2" runat="server" Height="81px"
ImageUrl='<%# Eval("Resim") %>’ Width="102px" />
</td>
</tr>
<tr>
<td align="center">
<asp:Label ID="ModelLabel" runat="server" ForeColor="#CC0000"
Text='<%# Eval("Model") %>’ />
</td>
</tr>
<tr>
<td align="center">
<asp:LinkButton ID="LinkButton1" runat="server" commandname="bilgi" commandargument='<%#databinder.eval(container.dataitem,"Kimlik")%>’>Ayrıntılar</asp:LinkButton>
</td>
</tr>
</table>
<br />
</ItemTemplate>
</asp:DataList>

</asp:Content>

[/code]

televizyon.aspx.vb kodları;

[code lang=”vb”]

Imports System.Data
Imports System.Data.OleDb
Partial Class televizyon
Inherits System.Web.UI.Page
Dim baglan As New OleDbConnection("Provider=Microsoft.ACE.OleDB.12.0;Data Source=" & Server.MapPath("App_Data\ders.accdb"))
Protected Sub DataList2_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList2.ItemCommand
If e.CommandName = "bilgi" Then
Response.Redirect("ozellikler5.aspx?Kimlik=" + e.CommandArgument)
End If
End Sub
End Class

[/code]

uyeol.aspx kodları;

[code lang=”html”]

<%@ Page Language="VB" MasterPageFile="~/master1.master" AutoEventWireup="false" CodeFile="uye.aspx.vb" Inherits="uyeol" title="Untitled Page" %>

<%– Add content controls here –%><asp:Content ID="Content1" runat="server"
contentplaceholderid="ContentPlaceHolder1">

<table style="width:100%;">
<tr>
<td class="style1">
ad</td>
<td>
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server"
ControlToValidate="TextBox1" ErrorMessage="boş bırakmayınız"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
soyad</td>
<td>
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server"
ControlToValidate="TextBox2" ErrorMessage="boş bırakmayınız"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style2">
kullanıcı adı</td>
<td class="style3">
<asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server"
ControlToValidate="TextBox3" ErrorMessage="boş bırakmayınız"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
şifre</td>
<td>
<asp:TextBox ID="TextBox4" runat="server" TextMode="Password"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server"
ControlToValidate="TextBox4" ErrorMessage="boş bırakmayınız"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
email</td>
<td>
<asp:TextBox ID="TextBox5" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server"
ControlToValidate="TextBox5" ErrorMessage="boş bırakmayınız"></asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server"
ControlToValidate="TextBox5" ErrorMessage="e postayı doğru girin"
ValidationExpression="\w+([-+.’]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"></asp:RegularExpressionValidator>
</td>
</tr>
<tr>
<td class="style4">
gizli soru</td>
<td class="style5">
<asp:TextBox ID="TextBox6" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator6" runat="server"
ControlToValidate="TextBox6" ErrorMessage="boş bırakmayınız"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
yanıt</td>
<td>
<asp:TextBox ID="TextBox7" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator7" runat="server"
ControlToValidate="TextBox7" ErrorMessage="boş bırakmayınız"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
&nbsp;</td>
<td>
<asp:Button ID="Button1" runat="server" Text="kaydol" style="height: 26px" />
&nbsp;&nbsp;&nbsp;
<asp:Label ID="Label1" runat="server"></asp:Label>
</td>
</tr>
</table>

</asp:Content>

[/code]

uyeol.aspx.vb kodları;

[code lang=”vb”]

Imports System.Data
Imports System.Data.OleDb
Partial Class uyeol
Inherits System.Web.UI.Page
Dim baglanti As New OleDbConnection("provider=Microsoft.ace.oledb.12.0;data source=" & Server.MapPath("App_data\ders.accdb"))
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim adp As New OleDbDataAdapter("select * from uyler where kul_adi=’" & TextBox3.Text & "’", baglanti)
Dim dt As New DataTable
adp.Fill(dt)
Dim i As Integer = 0
For Each satir In dt.Rows
i = i + 1
Next ‘www.gorselprogramlama.com
If i = 0 Then
Try
Dim cmnd As New OleDbCommand
cmnd.Connection = baglanti
cmnd.CommandText = "insert into uyler(ad,soyad,kul_adi,sifre,eposta,gizlisoru,gizlicevap) values (@ad,@soyad,@kul_adi,@sifre,@eposta,@gizlisoru,@gizlicevap)"
cmnd.Parameters.Add("@ad", OleDbType.VarChar).Value = TextBox1.Text
cmnd.Parameters.Add("@soyad", OleDbType.VarChar).Value = TextBox2.Text
cmnd.Parameters.Add("@kul_adi", OleDbType.VarChar).Value = TextBox3.Text
cmnd.Parameters.Add("@sifre", OleDbType.VarChar).Value = TextBox4.Text
cmnd.Parameters.Add("@eposta", OleDbType.VarChar).Value = TextBox5.Text
cmnd.Parameters.Add("@gizlisoru", OleDbType.VarChar).Value = TextBox6.Text
cmnd.Parameters.Add("@gizlicevap", OleDbType.VarChar).Value = TextBox7.Text

baglanti.Open()
cmnd.ExecuteNonQuery()
Label1.Text = "kayıt oldunuz"
baglanti.Close()
Catch ex As Exception
Label1.Text = "hata oluştu"
End Try
Else
Label1.Text = "Kullanıcı adı kullanımda"
End If
End Sub
End Class ‘www.gorselprogramlama.com

[/code]

Siteyi İNDİR