+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [سؤال] من البداية .. الاتصال بقاعدة البيانات (/showthread.php?tid=1760)
من البداية .. الاتصال بقاعدة البيانات - ABO.BANCIANA - 30-01-14
السلام عليكم ورحمة الله وبركاتة
اعمل على فيجوال بيسك 6 واكسس 2003
واريد التحول الى فيجوال 2012
..............................................................................
كان لدى فى برنامجى موديل لربط قاعدة البيانات ( عن طريق الكود ADO) بالفورم
واستدعية عند تحميل كل فورم
السؤال ماهو كود الاتصال بقاعدة البيانات فى 2012 ؟ وهل نفس الموضوع متبع
اى عمل مديل واحد واستدعاءه فى كل فورم
اسف على الاطالة
تحياتى
RE: من البداية .. الاتصال بقاعدة البيانات - سعود - 30-01-14
كود :
Imports System.Data.OleDb
Public Class Form1
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
Dim con As New OleDbConnection(str)
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Try
Dim ds As New DataSet
ds.Clear()
DataGridView1.DataSource = Nothing
Dim da As New OleDbDataAdapter("select tname,age from tb where tname like'%" & TextBox1.Text & "%'", con)
da.Fill(ds, "tb")
DataGridView1.DataSource = ds
DataGridView1.DataMember = "tb"
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Try
End Sub
End ClassRE: من البداية .. الاتصال بقاعدة البيانات - ABO.BANCIANA - 30-01-14
اشكرك استاذى على سرعة الرد
طيب ... هل يمكن وضع كود للاتصال فى موديول واحد واستدعية عند الحاجة ؟؟
كما فى الفيجوال بيسك 6
RE: من البداية .. الاتصال بقاعدة البيانات - سعود - 30-01-14
(30-01-14, 03:36 PM)ABO.BANCIANA كتب : اشكرك استاذى على سرعة الردنعم اكيد
طيب ... هل يمكن وضع كود للاتصال فى موديول واحد واستدعية عند الحاجة ؟؟
كما فى الفيجوال بيسك 6