Setting Koneksi Telkom Flexi

Mei 24, 2008

Berikut ini cara setup koneksi telkom flexi

1. klik Start-Control panel-dobel klik “Network Connection”

2. klik “New Connection Wizard”, klik Next

3. pilih “Setup my connection manually” klik Next

4. pilih “Connect using a dial-up modem” klik Next

5. ISP Name Internetan, klik Next, phone number :#777 lalu klik Next

6. isi user name telkomnet@flexi, Password & confirm Password telkom (ingat password pertama sama confirm password harus sama)

7. Berikan tanda chek untuk “make this the default internetconnection” jika koneksi ini akan dijadikan koneksi default

8. Berikan tanda chek “Add a shortcut to this connection to my desktop”, jika anda ingin shortcut ada di desktop komputer anda

9. klik Finish.

cobain dial deh…

segitu aja moga2 berguna


koneksi vb – sql server

Mei 17, 2008

koneksi vb 6 ke database sql server dibawah ini dengan membuat file setting.ini untuk menyimpan

nama user, password dan server

langkah-langkah sebagai berikut : 

buat sebuah project baru

buat sebuah modul lalu masukan kode dibawah ini

————————————————-

Public strServer  As String, strUser As String, strPwd As String, strCatalog As String

Public cn As ADODB.Connection

Public Declare Function GetPrivateProfileString Lib “kernel32″ _

Alias “GetPrivateProfileStringA” (ByVal lpApplicationName As String, _

ByVal lpKeyname As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, _

ByVal nSize As Long, ByVal lpFileName As String) As Long

 

Public Declare Function WritePrivateProfileString Lib “kernel32″ Alias “WritePrivateProfileStringA” _

(ByVal lpApplicationName As String, ByVal lpKeyname As Any, ByVal lpString As Any, ByVal lpFileName As String) _

As Long

Sub Main()

    Dim StrCn As String

    Dim strFileIni As String

    LogOut = False

    strFileIni = App.Path & “\settings.ini”

    CekFile (strFileIni)

 

    strServer = ReadIni(“database”, “server”, strFileIni)

    strUser = ReadIni(“database”, “User”, strFileIni)

    strPwd = ReadIni(“database”, “Pwd”, strFileIni)

    strCatalog = ReadIni(“database”, “Catalog”, strFileIni)

 

    StrCn = “Provider=SQLOLEDB.1;Persist Security Info=False;User ID=” & strUser & “;pwd=” & strPwd & “;Initial Catalog=” & strCatalog & “;Data Source=” & strServer & “”

    Set cn = New ADODB.Connection

    cn.Open StrCn

    cn.CursorLocation = adUseClient

 

    frmLogin.Show

End Sub

 

Sub CekFile(LokasiFile As String)

    Dim fso As New Scripting.FileSystemObject

    Dim Kode As String, servers As String, username As String, userpwd As String

 

    Set Folder = fso.GetFolder(App.Path)

    If fso.FileExists(LokasiFile) = False Then

        Kode = InputBox(“Masukin Nama Database :”, “Setting Database”)

        servers = InputBox(“Masukin server :”, “Setting Database”)

        username = InputBox(“Masukin user :”, “Setting login database”)

        userpwd = InputBox(“Masukin password user :”, “Setting login database”)

        Open App.Path & “\settings.ini” For Output As #1

            Print #1, “[Database]“

            Print #1, “Server=” & servers

            Print #1, “User=” & username

            Print #1, “Pwd=” & userpwd

            Print #1, “Catalog=” & Kode

        Close #1

    End If

End Sub

 

Function ReadIni(strSection As String, strVarName As String, strFile As String) As String

    Dim strRet As String

    strRet = String$(100, Chr(0))

    ReadIni = Left$(strRet, GetPrivateProfileString(strSection, ByVal strVarName, vbNullString, strRet, Len(strRet), strFile))

End Function

————————————————-

jadikan prosedure Main() sebagai Starup Object 

caranya dari Menu Vb pilih Project – [nama project] properties – startup object – pilih Sub Main – Ok 

setelah itu tentukan form apa yang akan muncul jika koneksi ke database berhasil

pada script di atas form yg akan muncul setelah koneksi berhasil adalah frmLogin 

silahkan ubah sesuai dengan yg kamu butuh kan ok !

dah ah segitu aja moga2 berguna :)