ربط ال sql server مع المشروع

السلام عليكم ورحمة الله وبركاتة

ممكن أساعدك فى الموضوع بسأعرف بستخدمى vb.net كام .

ولو عايزة حاجة جاهزة أو أمثلة ضيفى الميل دة عندك ورسالنى علية باللى انت عاوزة

ahmedkopap@hotmail.com

مشكور اخي انا ضفتك

وياريت تقبلي

انا بدي اشتغل asp.net

بستخدم ال VWD 2005

مشكور اخي

في دروس جيدة في المنتدى

شكرا لك اخي

بس انا بحثت ولقيت بالمنتدى كتاب من كتابة اخ اسمو احمد

وقرأت كل اشي فيه واخد كود منو

وفهمتو

بس بعطيني ايرور على الاشياء اللي ما فهمتها منو

:(

وهاد هو الكود

Imports Microsoft.VisualBasic

Imports System

Imports System.Data

Imports System.Data.SqlClient

Imports System.Configuration

Public Class connection

Private Sub New()

End Sub

Private Shared Function GetConnectionString() As String

Return ConfigurationManager.ConnectionStrings("pubsConnectionString").ConnectionString

End Function

Private Shared Function ExecuteProcedure(ByVal strCommandName As String, Optional ByVal Inputs As SqlParameter() = Nothing) As DataSet

Dim con As New SqlConnection(GetConnectionString())

Dim cmd As New SqlCommand

cmd.CommandText = strCommandName

cmd.CommandType = CommandType.StoredProcedure

Dim ds As New DataSet

cmd.Dispose()

con.Close()

Return ds

End Function

Public Shared Function GetEmpformation(ByVal strEmpID As Integer) As DataSet

Return ExecuteProcedure("GetEmpInfo")

End Function

وال procedure

 

CREATE PROCEDURE GetEmpInfo As

select IDNO from Employee

ساعدوني ما رح يكون عندي وقت اكمل المشروع لانو كل المشروع بعتمد على ربط الداتا بيس

ساعدوني:(

مشكورين

 



Imports Microsoft.VisualBasic



Imports System



Imports System.Data



Imports System.Data.SqlClient



Imports System.Configuration



Public Class connection

Private Sub New()

End Sub



Private Shared Function GetConnectionString() As String



Return ConfigurationManager.ConnectionStrings("pubsConnectionString").ConnectionString

End Function



Private Shared Function ExecuteProcedure(ByVal strCommandName As String, Optional ByVal Inputs As SqlParameter() = Nothing) As DataSet

Dim con As New SqlConnection(GetConnectionString())

Dim cmd As New SqlCommand

cmd.CommandText = strCommandName

cmd.CommandType = CommandType.StoredProcedure

Dim ds As New DataSet

cmd.Dispose()

con.Close()

Return ds

End Function





Public Shared Function GetEmpId(ByVal strEmpID As Integer) As DataSet

Return ExecuteProcedure("GetEmpID")

End Function

 

CREATE PROCEDURE GetEmpID As

select IDNO from Employee

take this code

for exemple

create a new table in sqlserver

name of table is compte

table compte have 2 champs (login , mot_pass)

in vb 2005

create web form

and put a new button

in button event write thi code

Private Sub Button1_Click

connexion()

command = New SqlCommand("select * from compte where login = '" + TextBox1.Text + "'" + "and pass=" + "'" + TextBox2.Text + "'")

dataadapter = New SqlDataAdapter(command)

command.Connection = connection

dataadapter.Fill(dataset, "compte")

login = dataset.Tables("compte")

If RowNumber > login.Rows.Count - 1 Then

Label2.Visible = True

TextBox1.Text = ""

TextBox2.Text = ""

Page.RegisterStartupScript("SetFocus", _

"<script>document.getElementById('" & TextBox1.ClientID & _

"').focus();</script>")

Else

Session("d8") = login.Rows(row).Item("login")

Response.Redirect("message.aspx")

End If

End Sub

Sub connexion()

connection = New SqlConnection

connectionstring = "server=.;database=abdelmounssef-2;trusted_connection=yes"

connection.ConnectionString = connectionstring

connection.Open()

End Sub

so if you need more help

this is my adresse mail:abdelmounssef@hotmail.com

الله يساعدك ويعينك اختي

انا نفس الشئ عندي مشروع تخرج

بال ASP.net 2.0

بس اعتمد على ال C#

واستخدم برنامج ال Visual Studio

وبصراحة فيه ادوات رااااااائعة جدا

للربط بطريقة سلسة وميسرة بقاعدة البيانات

مشروعي تقريبا جاهز.. لو حبيتي تطلعين عليه

ممكن ترسلي لي رسالة برايفيت وراح ارسل لك المشروع

وتشوفيه وتطلعي عليه......

الله يوفق الجميع يااااااارب..

تحياتي,,,,,, :)