Mengimport Database Ke Dalam SQL Server 7.0

Jika Anda pernah menggunakan Access sebelumnya dan ingin berpindah ke SQL Server, Anda mungkin juga perlu mengubah beberapa database Anda.

Untuk mengimpor database ke dalam SQL Server, gunakanlah Data Transformation Services (DTS). DTS adalah sebuah komponen dari SQL Server yang digunakan untuk mengimpor data dari database dan file teks yang berbeda, juga untuk mengekspor data ke dalam database lain. Untuk mengimpor database BIBLIO.MDB dari Access, ikutilah langkah langkah berikut:

• Untuk menjalankan DTS Import Wizard, terlebih dahulu jalankan program Enterprise Manager, explorelah tanda + sampai terlihat folder Database, lalu klik kanan pada folder Database à All Tasks à Import Data, yang ditunjukkan pada gambar dibawah ini.

• Setelah klik Import Data, akan muncul gambar berikut, dan klik Next.

• Pada layar DTS Import Wizard, tentukan sumber data (database BIBLIO Access). Pda kotak Source, pilihlah Microsoft Access, dan pada kotak File Name, ketikanlah path ke file BIBLIO.MDB, atau klik tombol di sebelah kanan File Name lalu carilah file database tersebut dengan kotak dialog File Open. Klik Next.

• Pada layar Chose a Destination, pilihlah databse yang akan menerima data tersebut. Tujuan ini haruslah berupa Microsoft OLE DB Provider for SQL Server. Tentukanlah nama dari server network Anda atau (local), jika Anda menjalankan SQL Server pada komputer yang sama, serta jenis autentikasinya.

Pada kotak Database, pilihlah <new> untuk membuat database baru yang akan menerima database Biblio. Segera setelah Anda memilih entri <new> pada daftar Database, kotak dialog Create Database akan muncul (lihat gambar dibawah ini). Kotak dialog yang sama akan muncul apabila Anda membuat database SQL Server yang baru.

Pada kotak Create Database, tentukanlah nama database yang baru dan ukuran awalnya. Delapan megabyte adalah lebih dari cukup untuk database Biblio, dan ukuran file log sebesar 2 Mb juga cukup memadai. Klik OK, dan SQL Server akan membuat database baru lalu kembali ke layar Choose a Destination. Klik Next untuk melanjutkan.

• Pada layar Specify Table Copy or Query (lihat Gambar berikut), tentukanlah apakah Anda ingin meng-copy tabel-tabel database Access ke dalam database baru, atau memilih baris-baris tertentu dari tabel dengan satu atau lebih query. Anda ingin meng-copy semua baris pada tabel Biblio ke dalam database baru, jadi pilihlah pilihan yang pertama dan klik Next.

• Pada layar Select Source Tables (lihat Gambar dibawah), tentukanlah tabel-tabel mana yang akan ditransfer. Setiap kali Anda memilih sebuah tabel dengan meng-klik di depan namanya, nama tabel yang serupa akan ditambahkan ke dalam kolom Destination Table. Pilihlah semua tabel sumber pada kolom pertama. Anda juga bisa mengubah nama dari tabel tujuan, tetapi untuk saat ini Anda tidak perlu mengubah nama-nama dari database Biblio.

Tombol-tombol pada kolom Transform pada gambar diatas, mengizinkan Anda menentukan transformasi pada data saat diimport ke dalam SQL Server. Klik tombol pada kolom yang ingin Anda ubah, dan Anda akan diminta menentukan transformasinya (biasanya hanya berupa perubahan tipe data). Jendela Column Mappings and Transformations mengandung dua buah tab. Tab Column Mappings menampilkan definisi atau bahkan membuang kolom tertentu. Jika Anda ingin membuang sebuah kolom, klik nama tabel pada kolom Destination dan pilih <ignore>.

• Pada tab Tansformation (lihat gambar dibawah) Anda bisa menentukan apakah kolom-kolom sumber akan di-copy secara langsung atau ditransformasi saat mereka di-copy ke kolom tujuan. Jika Anda memilih pilihan yang kedua, kotak teks pada jendela akan diaktifkan. Di sini Anda bisa mengetikkan skrip untuk mengubah data saat ditransfer. Skrip ini adalah program pendek yang ditulis dalam VBScript yang memanipulasi field-field sumber dan field-field tujuan.

• Klik OK untuk kembali ke Column Mappings and Transformation Wizard. Anda tidak perlu melakukan transformasi pada saat ini, jadi biarkan Wizard yang mennerjemahkan definisi tabel dan mentransfer semua baris untuk Anda.
• Klik OK untuk kembali ke DTS Wizard dan klik Next untuk menentukan kapan impor data akan dilaksanakan. Pilihlah Run Immediately untuk mengimpor database saat ini juga.

Pilihan Save DTS Package jika Anda ingin mengimpor data yang sama di lain waktu dan SQL Server akan membuat sebuah skrip secara automatis agar Anda tidak perlu melalui layar-layar Import Wizard kembali. Jika Anda memilih untuk menyimpan paket DTS, Anda akan diminta memasukkan nama untuk paket tersebut.

• Klik Next sekali lagi untuk melihat layar terakhir. Pastikan tujuan Anda untuk mengimpor database, lalu klik Finish. SQL Server akan mulai mentransfer database secara asinkron, dan akan menampilkan kemajuan operasi pada layar Data Transferring.

• Setelah Anda klik Finish gambar berikut akan tampil yang menunjukkan bahwa proses transformasi database sedang berlangsung.

Gambar dibawah ini menginformasikan bahwa proses transfer 4 table dari Microsoft Access ke Microsoft SQL Server telah berhasil.

Jika terdapat error selama proses transfer, proses mengimpor tabel-tabel yang berhubungan akan dibatalkan. Wizard akan memberi tahu Anda berapa banyak baris yang telah ditransfer dengan sukses, dan Anda bisa membuka tabel aslinya untuk mengetahui baris apa saja yang tidak ditransfer.

Read more »

Import Data Excel Menggunakan DAO dan ADO

Contoh program ini mendemonstrasikan bagaimana cara untuk import data excel dengan menggunakan DAO atau ADO ke FlexGrid. 

Component :     

1. Microsoft ActiveX Data Objects 2.6 Library
2. Microsoft DAO 3.6 Object Library

Reference:

• Microsoft FlexGrid Control 6

Download Code 

Option Explicit Dim db As DAO.Database Dim rsDAO As DAO.Recordset Dim Conn As ADODB.Connection Dim rsADO As ADODB.Recordset Dim strDBField() As String ' Array untuk nama nama field Database. Private Sub AccessDataWithDAO() Set db = OpenDatabase(App.Path & "\test.xls", False, True, "Excel 8.0;") DoEvents Set rsDAO = db.OpenRecordset("SELECT * FROM [Sheet1$C6:D10]") rsDAO.MoveFirst Screen.MousePointer = vbHourglass ReDim strDBField(1) strDBField(0) = "Nama" strDBField(1) = "Kota Lahir" FillDataToGridControl Screen.MousePointer = vbDefault End Sub Private Sub AccessDataWithADO() Dim strConn As String ' Open koneksi ADO ke file Excel strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\test.xls;" & _ "Extended Properties=""Excel 8.0;HDR=YES;""" Set Conn = New ADODB.Connection Set rsADO = New ADODB.Recordset Conn.ConnectionString = strConn Conn.Open ' Pada file excel, definisikan nama ListURL dalam Sheet2 rsADO.Open "SELECT * FROM ListURL", Conn, adOpenDynamic, adLockOptimistic If rsADO.RecordCount > 0 Then rsADO.MoveFirst Screen.MousePointer = vbHourglass ReDim strDBField(1) strDBField(0) = "URL" strDBField(1) = "Language" FillDataToGridControl Screen.MousePointer = vbDefault End Sub Private Sub opAksesData_Click(Index As Integer) Set Conn = Nothing Set rsADO = Nothing Set db = Nothing Set rsDAO = Nothing Select Case Index Case 0: AccessDataWithDAO Case 1: AccessDataWithADO Case Else End Select End Sub Private Sub HeadingFlexGrid(oMSFlexGrid, nCol, cTextHeading, nColWidth) With oMSFlexGrid .TextMatrix(0, nCol) = cTextHeading .ColWidth(nCol) = nColWidth .Row = 0 .Col = nCol .CellFontBold = True .CellAlignment = flexAlignCenterCenter End With End Sub  Private Sub FillDataToGridControl() Dim rownum As Integer Dim icount As Integer Dim rs As Object ' Set recordset sesuai Option If opAksesData(0) Then Set rs = rsDAO Else Set rs = rsADO End If ' Bersihkan data pada Grid dan setting row MSFlexGrid1.Rows = 2 MSFlexGrid1.Clear ' Buat jumlah kolom sesuai dengan jumlah field(s) If Not (MSFlexGrid1.Cols = UBound(strDBField, 1) + 1) Then MSFlexGrid1.Cols = UBound(strDBField, 1) + 2 End If ' Setting grid header dan column. Call HeadingFlexGrid(MSFlexGrid1, 0, "", 225) Call HeadingFlexGrid(MSFlexGrid1, 1, strDBField(0), 3000) Call HeadingFlexGrid(MSFlexGrid1, 2, strDBField(1), 2200) ' Isi grid dengan data dari cell file Excel. rs.MoveFirst Do Until rs.EOF rownum = rownum + 1 MSFlexGrid1.AddItem "" For icount = 0 To UBound(strDBField, 1) MSFlexGrid1.TextMatrix(rownum, icount + 1) = _ rs.Fields(strDBField(icount)) Next rs.MoveNext Loop rs.Close Set rs = Nothing End Sub

Read more »

DataGrid Dengan ListBox

Contoh program ini mendemonstrasikan bagaimana cara untuk merefresh suatu DataGrid berdasarkan kriteria atau data yg terdaftar pada object ListBox. Selain itu contoh program ini bisa juga digunakan sebagai latihan bagaimana memilih data pada List yg satu ke List yg lain. 

Component :     1. Microsoft ADO Data Control 6.0 (SP4) (OLEDB)
                         2. Microsoft DataGrid Control 6.0 (OLEDB)
Reference:        1. Microsoft ActiveX Data Objects 2.6 Library

Download Code

Option Explicit Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmdRefresh_Click() Dim i As Integer Dim strSQL As String Set rs = Nothing Set Conn = Nothing If List2.ListCount >= 1 Then strSQL = "SELECT * FROM Table1 WHERE " For i = 1 To List2.ListCount strSQL = strSQL & "Kode = '" & List2.List(i - 1) & "' OR " Next If Right(strSQL, 3) = "OR " Then strSQL = Left(strSQL, Len(strSQL) - 3) End If Else strSQL = "SELECT * FROM Table1" End If RefreshGrid (strSQL) End Sub Private Sub cmdSelect_Click(Index As Integer) Dim i As Integer Select Case Index Case 0: For i = 0 To List1.ListCount - 1 List1.ListIndex = 0 List2.AddItem List1.Text List1.RemoveItem (0) Next Case 1: If List1.ListIndex >= 0 Then List2.AddItem List1.Text List1.RemoveItem (List1.ListIndex) Else MsgBox "Select Kode Mahasiswa..." End If Case 2: If List2.ListIndex >= 0 Then List1.AddItem List2.Text List2.RemoveItem (List2.ListIndex) Else MsgBox "Select Kode Mahasiswa..." End If Case 3: For i = 0 To List2.ListCount - 1 List2.ListIndex = 0 List1.AddItem List2.Text List2.RemoveItem (0) Next End Select End Sub Private Sub CommandButton1_Click() End End Sub Private Sub Form_Load() RefreshGrid ("SELECT * FROM Table1") rs.MoveFirst While Not rs.EOF List1.AddItem rs.Fields(0) rs.MoveNext Wend End Sub Private Sub List1_DblClick() cmdSelect_Click (1) End Sub Private Sub List1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdSelect_Click (1) End If End Sub Private Sub List2_DblClick() cmdSelect_Click (2) End Sub Private Sub RefreshGrid(strSQL As String) Dim strConn As String Set Conn = New ADODB.Connection Set rs = New ADODB.Recordset strConn = "Provider = Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\db5.mdb;" Conn.CursorLocation = adUseClient Conn.ConnectionString = strConn Conn.Open rs.Open strSQL, _ Conn, adOpenKeyset, adLockOptimistic Set Adodc1.Recordset = rs End Sub Private Sub List2_KeyPress(KeyAscii As Integer) cmdSelect_Click (2) End Sub

Read more »

Membuat Database Dengan Ado

Selain merancang sebuah database beserta tabelnya dengan menggunakan tool acces bisa juga kita Membuat Database Dengan Ado dengan menggunakan code program.

Private Sub cmdCreate_Click() Dim lCatalog As New ADOX.Catalog Dim lTable As New ADOX.Table Dim lIndex As New ADOX.Index lCatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DATABASE.MDB" lTable.Name = "Content" Set lTable.ParentCatalog = lCatalog lTable.Columns.Append "ContentID", adInteger lTable.Columns("ContentID").Properties("AutoIncrement") = True lTable.Columns.Append "UserID", adInteger lTable.Columns.Append "RegionID", adInteger lTable.Columns.Append "ContentTypeID", adInteger lTable.Columns.Append "CatID", adInteger lTable.Columns.Append "Title", adVarWChar, 100 lTable.Columns.Append "Author", adVarWChar, 50 lTable.Columns.Append "FileName", adVarWChar, 50 lTable.Columns("FileName").Properties("Jet OLEDB:Allow Zero Length") = True lTable.Columns.Append "RelatedURL", adVarWChar, 70 lTable.Columns.Append "DownloadURL", adVarWChar, 70 lTable.Columns.Append "DateAdded", adDate lTable.Columns.Append "ShortDesc", adLongVarWChar lTable.Columns.Append "LongDesc", adLongVarWChar lTable.Columns.Append "Display", adSingle lTable.Columns.Append "Email", adVarWChar, 70 lTable.Columns.Append "Expire", adDate lTable.Columns.Append "Priority", adInteger lTable.Columns.Append "Impressions", adInteger lTable.Columns.Append "ClickThrus", adInteger lTable.Columns.Append "Downloads", adInteger lTable.Columns.Append "AvgRating", adInteger lTable.Columns.Append "Ratings", adInteger lTable.Columns.Append "Feature", adSingle lIndex.Name = "P_Key" lIndex.Columns.Append "ContentID" 'Tambahkan index ke table lTable.Indexes.Append lIndex 'Simpan table dan strukturnya ke database lCatalog.Tables.Append lTable Set lCatalog = Nothing MsgBox "Database dan table telah sukses di buat." End Sub

Code Visual Basic diatas adalah untuk membuat database dan table di dalam database. Jika terjadi erro atau runtime error : User-defined type not defined. Maka anda harus mengaktifkan dengan cara :

• Dari menu pilih Project
• Referensi
• Setelah muncul Daftar referensi, cari Microsoft ADO Ext. 2.5 for DDL and Security
• Setelah ketemu dan dicentang disebelah kiri tekan Ok untuk Selesai.

Demikian semoga bisa membantu.

Read more »

ComboBox Di Dalam DBGrid

Berikut saya berikan contoh Source Code ComboBox Di Dalam DBGrid

Private Sub Combo1_GotFocus() Const CB_SHOWDROPDOWN = H14F Dim Tmp Tmp = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0) End Sub Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then DBGrid1.Text = Combo1.Text DBGrid1.SetFocus End If End Sub Private Sub Combo1_LostFocus() Combo1.Visible = False End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub DBGrid1_ButtonClick(ByVal ColIndex As Integer) Combo1.Top = DBGrid1.Top + DBGrid1.RowTop(DBGrid1.Row) Combo1.Visible = True Combo1.SetFocus If Not (DBGrid1.Text = "") Then Combo1.Text = DBGrid1.Text End If End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & "\Data1.mdb" End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub

Demikian Code Visual Basic menempatkan ComboBox di dalam DBGrid semoga bermanfaat.Program lengkapnya bisa di download di sini.

Read more »

Mencari Data Di DataGrid

Source code Mencari Data Di DataGrid

Option Explicit Private Sub Command1_Click() End End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) DisplayRecord If Adodc1.Recordset.EOF Then Adodc1.Caption = "Record: EOF of " & Adodc1.Recordset.RecordCount Else Adodc1.Caption = "Record: " & Adodc1.Recordset.AbsolutePosition & " of " & Adodc1.Recordset.RecordCount End If End Sub Private Sub Form_Load() DisplayRecord End Sub Private Sub txtFind_Change() If Not Trim(txtFind.Text) = "" Then txtFind.Text = UCase(txtFind.Text) txtFind.SelStart = Len(txtFind.Text) Adodc1.Recordset.Find "fld1 LIKE '" & txtFind.Text & "%'", , , 1 If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Else Text1.Text = Adodc1.Recordset.Fields(0) Text2.Text = Adodc1.Recordset.Fields(1) Text3.Text = Adodc1.Recordset.Fields(2) Adodc1.Caption = _ "Record: " & Adodc1.Recordset.AbsolutePosition & " of " & Adodc1.Recordset.RecordCount End If Else txtFind.Text = "" End If End Sub Private Sub DisplayRecord() If Not Adodc1.Recordset.EOF And Not Adodc1.Recordset.BOF Then Text1.Text = Adodc1.Recordset.Fields(0) Text2.Text = Adodc1.Recordset.Fields(1) Text3.Text = Adodc1.Recordset.Fields(2) End If End Sub

Sebelum anda menjalankan program ini terlebih dahulu setting ADO Data Control-nya ke direktori dimana data COBA.MDB berada yaitu connectionstring. Untuk mendownload codenya Klik disini.

Read more »

Create a password reset disk

If you're running Microsoft Windows XP Professional, you can create a password reset disk that—if you ever forget your password—you can use to log on to your computer. If you forget your password but don’t have a password reset disk, you'll have to reinstall Windows XP to use your computer.

To create a password reset disk

1.	Log on to your computer as an administrator.
2.	Click Start, and then click Control Panel.
3.	Under Pick a category, click User Accounts.
4.	In the User Accounts window, click the account name that you want to create a password reset disk for.
5.	Under the Related Tasks section, click Prevent a forgotten password.
6.	On the Welcome to the Forgotten Password Wizard page, click Next.
7.	Insert a floppy disk into your disk drive. If necessary, select the disk drive you want to use, and then click Next. Note: If your computer doesn’t have a floppy disk drive, you won’t be able to use this wizard. If you cannot install a floppy disk drive on your computer or laptop, you could consider using aUSB-connected floppy disk drive.
8.	Type your password, and then click Next.
9.	After the Forgotten Password Wizard creates your password reset disk, click Next.
10.	Click Finish.

Remove your password reset disk and store it in a safe, secure place. Storing your disk in a secure place is very important because anyone who uses the disk can access your computer without knowing your password. If you ever forget your password

Read more »