تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
انشاء odbc برمجيا
#1
كاتب الموضوع : shenosheno2008

انشاء oebc عند عمل الاتصال بالبرنامج برمجيا
اولا:

كود :
Imports Microsoft.Win32

ثانيا قم بتعريف المكتبة الدالة التالية

Private Declare Function SQLConfigDataSource Lib "ODBCCP32.dll" (ByVal hwndparent As Integer, ByVal frequest As Integer, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Integer  

من خلال الاجراء التالى يتم انشاء odbc سواء قاعدةالبيانات على هذا الجهاز ام على السرفر

trusted
or
not trusted

هذا هو الاجراء


Function create_odbc_dsn(ByVal server_name As String, ByVal dsn_name As String, ByVal driver_name As String, ByVal database_name As String, ByVal description As String, ByVal user_id As String, ByVal trusted As Boolean) As Boolean
       Dim atrbute
As String
       atrbute
= ""
       
atrbute = atrbute + "SERVER="
       
atrbute = atrbute + server_name
       atrbute
= atrbute + Chr(0)
       
atrbute = atrbute + "DSN="
       
atrbute = atrbute + dsn_name
       atrbute
= atrbute + Chr(0)
       
atrbute = atrbute + "DESCRIPTION="
       
atrbute = atrbute + description
       atrbute
= atrbute + Chr(0)
       
atrbute = atrbute + "DATABASE="
       
atrbute = atrbute + database_name
       atrbute
= atrbute + Chr(0)
       If
trusted = False Then
           atrbute
= atrbute + "TRUSTED_CONNECTION=NO"
       
Else
           
atrbute = atrbute + "TRUSTED_CONNECTION=YES"
       
End If
       
atrbute = atrbute + Chr(0)
       If
SQLConfigDataSource(0, 4, driver_name, atrbute) = 1 And Me.add_userid(user_id, dsn_name, trusted) = True Then
           
Return True
       
Else
           Return
False
       End
If
   
End Function  



فى حالة not trusted يحتاج الى تعريف مستخدم كالتالى


Private Function add_userid(ByVal userid As String, ByVal dsn_name As String, ByVal trusted As Boolean) As Boolean
       
Try
           If
trusted = True Then
               
Return True
           End
If
           
Dim regkey, regsubkeysw As RegistryKey
           Dim regsubkeyodbc
, regsubkeyodbcini As RegistryKey
           Dim regsales
As RegistryKey
           regkey
= Registry.LocalMachine
           regsubkeysw
= regkey.OpenSubKey("SOFTWARE")
           
regsubkeyodbc = regsubkeysw.OpenSubKey("ODBC")
           
regsubkeyodbcini = regsubkeyodbc.OpenSubKey("ODBC.INI")
           
regsales = regsubkeyodbcini.OpenSubKey(dsn_name, True)
           
regsales.SetValue("LastUser", "sh")
           Return
True
       
Catch ex As Exception
           
Return False
       End
Try

   
End Function  



انتهى
الكلاس فى المرفقات يمكنك فى شتاشة الاتصال تعريف نسخة من الكلاس وتمرير المتغيرات بتاع الاتصال الى الاجاء create_odbc_dsn


الملفات المرفقة
.rar   Cls_create_odbc.rar (الحجم : 757 بايت / التحميلات : 6)
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] شرح انشاء برنامج لتسجيل الدخول للمنتدى CLARO 2 435 27-10-16, 04:03 PM
آخر رد: rafaag777
  شرح انشاء برنامج تحويل صيغ الملفات الصوتيه CLARO 9 321 02-06-16, 11:13 AM
آخر رد: CLARO
  شرح انشاء برنامج دردشة بسيط CLARO 0 250 28-05-16, 02:24 PM
آخر رد: CLARO
  مقارنة الكلمات و الأسماء العربية برمجيا silverlight 4 470 20-12-15, 08:34 PM
آخر رد: silverlight
Brick [مثال] انشاء ترميز باركود من نوع QR عن طريق موقع جوجل الطالب 1 419 02-09-15, 10:42 PM
آخر رد: مبرمج بلا حدود
  فيديو بالعربي انشاء جملة الاتصال اثناء تشغيل البرنامج أحمد النجار 0 391 13-06-15, 09:40 AM
آخر رد: أحمد النجار
  [VB.NET] كيفية انشاء قاعدة بيانات برمجيا VB.net (صوت وصورة) أحمد النجار 0 726 18-01-15, 06:59 AM
آخر رد: أحمد النجار
  تشغيل برنامجك كمدير (administration) عند العميل برمجيا على ويندوز 7 Omar Mekkawy 5 1,815 05-01-14, 03:08 AM
آخر رد: mero5000
  رسم الباركود برمجيا باستخدام (Code128) RaggiTech 3 2,656 06-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية انشاء برنامج تثبيت لخدمة ويندوز Windows Service على vs2008 RaggiTech 1 434 05-10-12, 02:39 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم