التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



تقييم الموضوع :
  • 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 بايت / التحميلات : 41)
}}}
تم الشكر بواسطة:


الردود في هذا الموضوع
انشاء odbc برمجيا - بواسطة Raggi Tech - 03-10-12, 01:08 AM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  شرح انشاء برنامج دردشة بسيط CLARO 1 5,533 25-08-19, 04:30 AM
آخر رد: أمجد وضاح
  شرح انشاء برنامج تحويل صيغ الملفات الصوتيه CLARO 10 6,959 16-11-18, 04:41 PM
آخر رد: anassss
  [VB.NET] شرح انشاء برنامج لتسجيل الدخول للمنتدى CLARO 5 5,396 16-06-18, 03:44 AM
آخر رد: YousefOkasha
  مقارنة الكلمات و الأسماء العربية برمجيا silverlight 4 4,015 20-12-15, 08:34 PM
آخر رد: silverlight
Brick [مثال] انشاء ترميز باركود من نوع QR عن طريق موقع جوجل الطالب 1 2,906 02-09-15, 10:42 PM
آخر رد: مبرمج بلا حدود
  فيديو بالعربي انشاء جملة الاتصال اثناء تشغيل البرنامج أحمد النجار 0 3,148 13-06-15, 09:40 AM
آخر رد: أحمد النجار
  [VB.NET] كيفية انشاء قاعدة بيانات برمجيا VB.net (صوت وصورة) أحمد النجار 0 4,181 18-01-15, 06:59 AM
آخر رد: أحمد النجار
  تشغيل برنامجك كمدير (administration) عند العميل برمجيا على ويندوز 7 Omar Mekkawy 5 5,158 05-01-14, 03:08 AM
آخر رد: mero5000
  رسم الباركود برمجيا باستخدام (Code128) RaggiTech 3 9,425 06-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية انشاء برنامج تثبيت لخدمة ويندوز Windows Service على vs2008 RaggiTech 1 2,495 05-10-12, 02:39 AM
آخر رد: RaggiTech

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


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