كيف يتم ربط قاعدة بيانات sql بمشروع visual basic.net 2005 ( بالكود )

اخى العزيز المنتدى ملئ بالعديد من الامثلة على هذا السؤال و قم بالبحث فى الدروس الخاصة بال ADO.NET

اخي العزيز كما الاخ العزيز يوجد العديد من الامثله ولكن ذلك لا يمنع من مساعدتك بما نستطيع

ضع هذا الموقع في مفضلتك ليكون دليلك فيما يخص كود الاتصال لأي شــــــــي

انقر على هنا وتوكل على الله

http://www.connectionstrings.com

وأي خدمة لن نتأخر عليك إذا كنا متواجدين

عــــــــــــــاطر التحايــــــــــــــا

ابحث عن نفس الموضوع

وهذه محاولتي لم تعمل

Imports System.Data.SqlClient

Module Module1
	Dim b As String
	Dim conn As New SqlConnection(b)
	b = (DataSource=.\SQLEXPRESS; AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True;User Instance=True)
End Module

والكود الذي اريد تحويله من اكسس الى SQL

Imports System.Data.OleDb
Module Module2
	Public myusername As String
	Public mypassword As String
	Public therole As Boolean
	Public Con As New OleDbConnection
	Public MyAdapter As OleDbDataAdapter
End Module

Imports System.Data.OleDb


Con.ConnectionString = "Provider=System.Data.SqlClient; Data Source=.\SQLEXPRESS;AttachDbFilename=" & Application.StartupPath & "\MyDB.mdb;"	   
Con.Open()


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

		myusername = t_username.Text
		mypassword = t_password.Text
		Me.MyDBDataSet1.Clear()
		Dim Str As String = "select * from users where username='" & myusername & "' and password='" & mypassword & "'" ', con_str
		MyAdapter = New OleDbDataAdapter(Str, Con)
		MyAdapter.Fill(MyDBDataSet1, "USER")
		Dim x As New Form2
		x.Show()
		Con.Close()

	End Sub

ممكن اعرف التعديلات اللازمه فالاكواد ؟؟

وشكرا للجميع

////////////////////////////////////////////////////////up//////////////////////////////////////////////////

مساء الانوار

:S

ممكن مثال على التوصيل لحد الان ولا رد على السؤال ؟؟؟ والزيارات تعدت 500 ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ UP ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

:wub:

دمتم بود

تذكر ضرورة وجود قاعد البيانات داخل المجلد الذي ينفذ منه الكود اي على \bin\Debug

ثم تأكد من استيراد فضاء الاسماء :

Imports System.Data

Imports System.Data.SqlClient

ووضع السطرين اعلاه قبل اي شيء في بداية النموذج

وهنا مثال للاتصال بقاعدة بيانات sqlserver :

mports System.Data
Imports System.Data.SqlClient
' اعلاه يوضع قبل بداية النموذج
Public Class Form1 
' تعريف متغيرات عامه على مستوى النموذج
	Dim ds As New DataSet

	Dim conn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=" & Application.StartupPath & "\sqlDatabaseName.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")

	Dim SQLstr As String

' الان يأتي دور ما سوف نكتبه في كود حدث تحميل النموذج(الفورم)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

			conn.Open()
 SQLstr = "Select * from Table1"

Dim DataAdapter1 As New SqlDataAdapter(SQLstr, conn)
		DataAdapter1.Fill(ds, "TableNameOnDataSet")

' ثم تعرض بياناتك كما تريد
' وتغلق الاتصال
		conn.Close()
End Sub

صباح الانوار

:wub:

ألف شكر لك اخي basharss والكود يعمل جيدا والله يوفقك في كل امورك

الحين نقول وداعا للاكسس ونبدأ الشغل على SQL

دمتم بود وسلام

http://www.kutub.info/library/download.php...db885c36b57d490

ممكن تلاقو فى الكتاب ده الحل