Koneksi VB dan SQL Server

Public Function Koneksi_SQLServer(namaserver, namadb, userid, userpass) As Boolean
On Error GoTo KoneksiSalah
Dim cn_SQLServer As ADODB.Connection
Set cn_SQLServer = New ADODB.Connection

    Koneksi_SQLServer = False
    cn_SQLServer.Open "Provider=SQLOLEDB.1;" & _
                        "Persist Security Info=False;" & _
                        "User ID=" & userid & ";" & _
                        "Password=" & userpass & ";" & _
                        "Initial Catalog=" & namadb & ";" & _
                        "Data Source=" & namaserver
        
    cn_SQLServer.Close
    Set cn_SQLServer = Nothing
    Koneksi_SQLServer = True
    Exit Function
    
KoneksiSalah:
Select Case Err.Number
    Case -2147467259 ' Server salah
        MsgBox "Nama server atau database tidak ditemukan"
    Case -2147217843 ' User atau password salah
        MsgBox "Username atau password yang anda masukkan salah"
End Select
Koneksi_SQLServer = False

End Function

VB

Operator Bilangan

Operator
Gunanya
... Format
Contoh

^
Pangkat
x ^ y
3 ^ 2 =9

-
Negatif
- y
- 9

*
Perkalian
x * y
3 * 2 = 6

/
Pembagi real
x / y
5 /2 = 2.5

\
Pembagi Integer
x \ y
5 / 2 = 2

mod
Modulo (sisa pembagian)
x mod y
5 mod 2 = 1

+
Tambah
x +y
2 + 4 = 6

-
Kurang
x - y
4 -2 = 2

Fungsi Matematik Internal
VB menyediakan fungsi matematika siap pakai untuk manipulasi variabel.

Fungsi Contoh Penjelasan
Abs(x) a = abs(-32) 'a=32 nilai absolut x
Atn(x) Nilai arcus tangent x x dalam radian : degree = radian * 180/phi
Cos(x) Nilai cosinus x x dalam radian
Exp(x) Nilai exponensial x
Fix(x)
fix(3.2) = 3
fix(-3.2) = -3
mencari integer bilangan pecah, untuk bilangan negatif; mencari bilangan pertama > x
Int(x)
int(5.4) = 5
int(-5.4) =-6
Bilangan negatif; mencari bilangan pertama <=x
Log(x) nilai natural log x
Rnd(x)
0 <= hasil random <1
nilai x menentukan hasil random
sebelumnya gunakan perintah Randomize untuk memastikan bahwa hasil Rnd(x) selalu beda
Sgn(x)
menghasilkan :
1 bila x > 0
0 bila x = 0
-1 bilaa x < 0
  Sin(x)
A = SQR(16) 'A=4
A = SQR(-16) 'error
nilai cosinus x dalam radian
Sqr(x) Akar bilangan x
Tan(x) Q = Tan(45*phi/180) 'Q=1
nilai tangent x dalam radian
phi=3.141592653589732

Derifat Fungsi Matematika
Fungsi matematika yang tidak ada dapat diderifasi dari fungsi yang tersedia.

Fungsi Derifat Sepadan
Secant Sec(X) = 1 / Cox(X)
Cosecant Cosec(X) = 1 / Sin(X)
Cotangent Cotan(X) = 1 / Tan(X)
Inverse Sinus Arcsin(X) = Atn(X / Sqr(-X * X +1))
Inverse Cosinus Arcos(X) = Atn( -X / Sqr(-X * X +1)) + 2 * Atn(1)
Inverse Secant Arsec(X) = 2 * Atn(1) - Atn(Sgn(X) / Sqr(X * X -1))
Inverse Cosecant Arccosec(X) = Atn(Sgn(X) / Sqr(X * X -1))
Inverse Cotangen Arccotan(X) = 2 * Atn(1) - Atn(X)
Hyperbolic Sinus HSin(X) = (Exp(X) - Exp(-X)) / 2
Hyperbolic Cosinus HCos(X) = (Exp(X) + Exp(-X)) / 2
Hyperbolic Tangent HTan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
Hyperbolic Secant HSec(X) = 2 / (Exp(X) + Exp(-X))
Hyperbolic Cosecant HCosec(X) = 2 / (Exp(X) - Exp(-X))
Hyperbolic Cotangent HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
Inverse Hyperbolic Sinus HArcsin(X) = Log(X + Sqr(X * X + 1)
Inverse Hyperbolic Cosinus HArccos(X) = Log(X + Sqr(X * X - 1)
Inverse Hyperbolic Tangent HArctan(X) = Log(1 + X) / (1 - X)) / 2
Inverse Hyperbolic Secant HArcsec(X) = Log((Sqr(-X * X +1) + 1) / X)
Inverse Hyperbolic Cosecant HArccosec(X) = Log(Sgn(X) * Sqr(X * X +1) + 1) / X)
Inverse Hyperbolic Cotangent HArcotan(X) = Log((X + 1) / (X - 1)) / 2
Logaritgm ti base N LogN(X) = Log(X) / Log(N)

Fungsi Manipulasi Bilangan
VB mempunyai fungsi untuk memanipulasi data numerik sebagai berikut :
Round : membulatkan bilangan cacah dengan jumlah desimal tertentu
MyValue = Round(33.4549, 2) ‘hasil 33.45
MyValue = Round(33.455, 2) ‘hasil 33.46
MyValue = Round(33.456, 2) ‘hasil 33.46
Val : menghasilkan bilangan numerik dari suatu variabel string
MyValue = Val(“2457”) ‘hasil 2457
MyValue = Val(“2 4 5 7”) ‘hasil 2457
MyValue = Val(“24 and 57”) ‘hasil 24
Str : menghasilkan variabel string (Variant) dari ekspresi numerik
MyString = Str (459) ‘hasil “459”
MyString = Str (-459.65) ‘hasil “-459.65”
MyString = Str (459.001) ‘hasil “459.001”
Hex : menghasilkan nilai hexadesimal dari suatu bilangan
MyHex = Hex(5) ‘hasil 5
MyHex = Hex(10) ‘hasil A
MyHex = Hex(459) ‘hasil 1CB
Oct : menghasilkan nilai octal dari setiap bilangan
MyOct = Oct(4) ‘hasil 4
MyOct = Oct(8) ‘hasil 10
MyOct = Oct(459) ‘hasil 713