17-12-12, 11:16 PM
(آخر تعديل لهذه المشاركة : 17-12-12, 11:40 PM {2} بواسطة yasser talib.)
السلام عليكم ورحمة الله وبركاته
أسعد بانضمامي لكم في هذا المنتدى الرائع واتمنى لأعضائه مزيد من التقدم والتطور
أنا مبتدأ في الدوت نت وأتمني مساعدتي في تصحيح هذا الكود
عندي vb.net 2012 و sql 2005
وعملت مشروع جديد وربطه بالأكسس 2007 ووضعت جملة الربط في مديول والحمد لله تمام الجملة لما بشغلها بالطريقة دي بتشتغل
في النموذج تحت مفتاح وضعت الكود التالي لإحضار حقل من جدول قاعدة بيانات 2007 وشغال تمام
إلى هذه النقطة الكود ماشي تمام
نيجي للمشكلة
في جملة الاستعلام السابقة بحضر جملة استعلام لقاعدة بيانات sql 2005 مخزنة في جدول setup_server داخل الحقل id_server بالشكل التالي
وعملت الكود التالي لعمل اتصال بقاعدة البيانات sql 2005 ولكن لا يتصل
مي المرفقات مثال للمشروع أرجوا التعديل عليه في جزئيتين
1 - الموديول لكي يتصل بقاعدة بيانات sql 2005
2 - في الفورم تحت butten3 احضار بيانات من sql 2005
أرجوا تصحيح الكود التالي حتى يتم الاتصال ولكم جزيل الشكر
أسعد بانضمامي لكم في هذا المنتدى الرائع واتمنى لأعضائه مزيد من التقدم والتطور
أنا مبتدأ في الدوت نت وأتمني مساعدتي في تصحيح هذا الكود
عندي vb.net 2012 و sql 2005
وعملت مشروع جديد وربطه بالأكسس 2007 ووضعت جملة الربط في مديول والحمد لله تمام الجملة لما بشغلها بالطريقة دي بتشتغل
كود :
Imports System.Data.OleDb
Imports System.Data.SqlClient
Module Module1
Public Conn_Mdb As New OleDbConnection
Public Conn_Sql As New SqlConnection
'*************************************
Public Command_Mdb As New OleDbCommand
Public Command_Sql As New SqlCommand
'*************************************
Public DataAdapter_Mdb As OleDbDataReader
Public DataAdapter_Sql As SqlDataAdapter
'*************************************
Public Sql_Statment_Mdb As String = Nothing
Public Sql_Statment_Sql As String = Nothing
Sub ConnToDB()Sub ConnToDB()
Try
With Conn_Mdb
If .State = ConnectionState.Open Then .Close()
' .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=ADDRESS_BOOK.accdb"
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & System.Environment.CurrentDirectory.ToString() & "\ADDRESS_BOOK.accdb;" & "Jet OLEDB:Database Password=" 123456789 ";"
.Open()
End With
Catch ex As Exception
MessageBox.Show("توجد مشكلة في الاتصال بقاعدة بيانات الدخول", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Application.Exit()
End Try
End Sub
في النموذج تحت مفتاح وضعت الكود التالي لإحضار حقل من جدول قاعدة بيانات 2007 وشغال تمام
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Call ConnToDB()
Call ConnToSqlServer2005()
Sql_Statment_Mdb = "SELECT * from setup_server where [ID_CON] = '1' "
Command_Mdb = New OleDbCommand
With Command_Mdb
.CommandText = Sql_Statment_Mdb
.Connection = Conn_Mdb
.ExecuteNonQuery()
DataAdapter_Mdb = Command_Mdb.ExecuteReader
DataAdapter_Mdb.Read()
TextBox6.Text = (DataAdapter_Mdb("id_server"))
End With
نيجي للمشكلة
في جملة الاستعلام السابقة بحضر جملة استعلام لقاعدة بيانات sql 2005 مخزنة في جدول setup_server داخل الحقل id_server بالشكل التالي
كود :
"Data Source=Main;Initial Catalog=Master;Persist Security Info=True;User ID=sa;password=;"
كود :
Sub ConnToSqlServer2005()
Try
With Conn_Sql
If .State = ConnectionState.Open Then .Close()
'********************************************************************************
'الاستعلام عن جملة الاتصال في ملف الأكسس
Sql_Statment_Mdb = "SELECT * from setup_server where [ID_CON] = '1' "
Command_Mdb = New OleDbCommand
Command_Mdb.CommandText = Sql_Statment_Mdb
Command_Mdb.Connection = Conn_Mdb
Command_Mdb.ExecuteNonQuery()
DataAdapter_Mdb = Command_Mdb.ExecuteReader
DataAdapter_Mdb.Read()
' myqry = (mydr("id_server"))
'*****************************************************
Dim xxx As String
xxx = (DataAdapter_Mdb("id_server"))
.ConnectionString = xxx
.Open()
End With
Catch ex As Exception
MessageBox.Show("توجد مشكلة في الاتصال بقاعدة بيانات سيكوال", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Application.Exit()
End Try
End Sub
مي المرفقات مثال للمشروع أرجوا التعديل عليه في جزئيتين
1 - الموديول لكي يتصل بقاعدة بيانات sql 2005
2 - في الفورم تحت butten3 احضار بيانات من sql 2005
أرجوا تصحيح الكود التالي حتى يتم الاتصال ولكم جزيل الشكر