I-BEGO

Code: Select all

Module MdlBase

#Region "Setting variabel global"
    Public MyServerName As String
    Public MyDatabaseName As String 
    Public MyProvider As String = MutasiBank.My.Settings.dbConnectionString
    Public MyProvider1 As String = MutasiBank.My.Settings.db2ConnectionString
    Public SQLConn As New SqlConnection(MyProvider)
    Public SQLConn1 As New SqlConnection(MyProvider1)
    Public SQLComm As SqlCommand = Nothing
    'Public Conn As New SqlClient.SqlConnection(MyProvider)
    'Public Comm As New SqlClient.SqlCommand
    Public objDataAdapter As SqlDataAdapter = Nothing
    Public ObjDataSet As DataSet = Nothing
    Public SQLString As String
    Public sNamaUser As String
#End Region

#Region "Cek Connection String"
    Public Sub CheckConnection()
        If SQLConn Is Nothing Then
            SQLConn = New SqlConnection(MyProvider)
            SQLConn.Open()
        ElseIf SQLConn1 Is Nothing Then
            SQLConn1 = New SqlConnection(MyProvider1)
            SQLConn1.Open()
        Else
            If SQLConn.State = ConnectionState.Closed Or SQLConn.State = ConnectionState.Broken Then
                SQLConn.Open()
            ElseIf SQLConn1.State = ConnectionState.Closed Or SQLConn1.State = ConnectionState.Broken Then
                SQLConn1.Open()
            End If
        End If
    End Sub
#End Region
End Module

Code: Select all

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
static class MdlBase
{

   #region "Setting variabel global"
   public static string MyServerName;
   public static string MyDatabaseName;
   public static string MyProvider = MutasiBank.My.Settings.dbConnectionString;
   public static string MyProvider1 = MutasiBank.My.Settings.db2ConnectionString;
   public static SqlConnection SQLConn = new SqlConnection(MyProvider);
   public static SqlConnection SQLConn1 = new SqlConnection(MyProvider1);
   public static SqlCommand SQLComm = null;
   //Public Conn As New SqlClient.SqlConnection(MyProvider)
   //Public Comm As New SqlClient.SqlCommand
   public static SqlDataAdapter objDataAdapter = null;
   public static DataSet ObjDataSet = null;
   public static string SQLString;
      #endregion
   public static string sNamaUser;

   #region "Cek Connection String"
   public static void CheckConnection()
   {
      if (SQLConn == null) {
         SQLConn = new SqlConnection(MyProvider);
         SQLConn.Open();
      } else if (SQLConn1 == null) {
         SQLConn1 = new SqlConnection(MyProvider1);
         SQLConn1.Open();
      } else {
         if (SQLConn.State == ConnectionState.Closed | SQLConn.State == ConnectionState.Broken) {
            SQLConn.Open();
         } else if (SQLConn1.State == ConnectionState.Closed | SQLConn1.State == ConnectionState.Broken) {
            SQLConn1.Open();
         }
      }
   }
   #endregion
}

Post mbahlawoe telah mendapat kopi dari:

3may

Code: Select all

using Microsoft.VisualBasic;


mbahlawoe wrote:

Code: Select all

      #endregion
   [b]public static string sNamaUser;[/b]


aapermana wrote:

Code: Select all

    [b]Public sNamaUser As String[/b]
#End Region