CONNECTION SOURCE SQL SERVER

Commentaire de assouma488 le 29/03/2010 20:51:57

voila mon module de connection :

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public UserName As String
Public PROV As String
Public Password As String
Public ServerName As String
Public DBName As String
'Public TypUser As String
'Public DtDeb, DtFin As Date
'Public fMainForm As furmMain
Private Declare Function SQLDataSources Lib "ODBC32.DLL" (ByVal henv&, ByVal fDirection%, ByVal szDSN$, ByVal cbDSNMax%, pcbDSN%, ByVal szDescription$, ByVal cbDescriptionMax%, pcbDescription%) As Integer
Private Declare Function SQLAllocEnv% Lib "ODBC32.DLL" (env&)


Sub Main()
    Data Source = DELL
    initial catalog = culture
    'persist security info=True
    'user id=ID
    workstation id = DELL \ BMB
    packet Size = 4096
    'Password = Password
    Provider = MSSQLServer
    'dsn = w2000pro
    'uid = administrateur
    'pwd = naza
    Database = "culture"

UserName = "DELL \ BMB"
   'Password = "naza"
ServerName = "DELL"
PROV = "MSSQLServer"
i = SQLAllocEnv(lHenv)
    
    'Dim strServerName As String
    'strServerName = MsChatPr1.ServerName
    
            
    DBName = "culure"

    'Set connection properties.
    
    db.ConnectionTimeout = 25                                       ' Set the time out.
    db.Provider = PROV                                        ' Specify the OLE DB provider.
    db.Properties("Data Source").Value = ServerName                 ' Set SQLOLEDB connection properties.
    db.Properties("Initial Catalog").Value = DBName                 ' Set SQLOLEDB connection properties.
    db.Properties("Integrated Security").Value = "SSPI"             ' Set SQLOLEDB connection properties.
    
  
   'db.Open "PROVIDER=sqloledb;dsn=w2000pro;uid=administrateur;database=burordre;"
  

   db.Open
   db.CursorLocation = adUseClient
   Dim flogin As New frmLogin
    flogin.Show vbModal
    If Not flogin.OK Then
        'L'ouverture de session a échoué. Application terminée
        End
    End If
    Unload flogin
    
    frmSplash.Show
    frmSplash.Refresh
    
    Set fMainForm = New frmMain
    Load fMainForm
    Unload frmSplash


    fMainForm.Show
End Sub



Sub LoadResStrings(frm As Form)
    On Error Resume Next


    Dim ctl As Control
    Dim obj As Object
    Dim fnt As Object
    Dim sCtlType As String
    Dim nVal As Integer


    'Définit la légende de la feuille
    frm.Caption = LoadResString(CInt(frm.Tag))
    

    'Définit la police
    Set fnt = frm.Font
    fnt.Name = LoadResString(20)
    fnt.Size = CInt(LoadResString(21))
    

    'Définit les légendes des contrôles en utilisant la
    'propriété caption pour les éléments de menu et la propriété Tag
   ' pour tous les autres contrôles
    For Each ctl In frm.Controls
     '  Set ctl.Font = fnt
        sCtlType = TypeName(ctl)
        If sCtlType = "Label" Then
            ctl.Caption = LoadResString(CInt(ctl.Tag))
        ElseIf sCtlType = "Menu" Then
            ctl.Caption = LoadResString(CInt(ctl.Caption))
        ElseIf sCtlType = "TabStrip" Then
            For Each obj In ctl.Tabs
                obj.Caption = LoadResString(CInt(obj.Tag))
                obj.ToolTipText = LoadResString(CInt(obj.ToolTipText))
            Next
        ElseIf sCtlType = "Toolbar" Then
            For Each obj In ctl.Buttons
                obj.ToolTipText = LoadResString(CInt(obj.ToolTipText))
            Next
        ElseIf sCtlType = "ListView" Then
            For Each obj In ctl.ColumnHeaders
                obj.Text = LoadResString(CInt(obj.Tag))
            Next
        Else
           nVal = 0
            nVal = Val(ctl.Tag)
            If nVal > 0 Then ctl.Caption = LoadResString(nVal)
            nVal = 0
           nVal = Val(ctl.ToolTipText)
            If nVal > 0 Then ctl.ToolTipText = LoadResString(nVal)
     End If
    Next


End Sub