Menjelajah dunia dengan ilmu

Pertama dibutuhkan php_mssql.dll

File php_mssql.dll tersebut berada pada paket PHP pada directory extension atau ext. Sebelum menggunakan extension SQL Server tersebut, Anda harus memodifikasi file php.ini karena biasanya file php_mssql.dll pada bagian extension masih di-disable atau diberi remark. Hilangkan tanda remark (;) yang ada pada baris yang berisi “extension=php_mssql.dll” kemudian simpan kembali file php.ini tersebut dan kemudian restart kembali service Apache Anda dengan mengetikkan perintah “net stop apache” dan kemudian “net start apache” dari DOS prompt Anda.

Untuk menguji apakah extension PHP php_mssql.dll sudah di-load dengan sempurna, maka Anda bisa memeriksanya dengan fungsi phpinfo()
Pada PHP telah tersedia fungsi untuk melakukan koneksi ke SQL Server yaitu fungsi mssql_connect. Fungsi-fungsi lainnya juga tersedia misalnya untuk melakukan query dan lain sebagainya (mssql_query(), mssql_fetch_array() dan lain sebagainya).

Berikut ini adalah contoh koneksi ke SQL Server dengan fungsi mssql_connect().

<?php
  if (mssql_connect('localhost', 'sa', '')) {
    echo 'Koneksi ke SQL Server sukses';
   }
  else {
    echo 'Koneksi ke SQL Server gagal';
  }
?>

Koneksi ke SQL Server
dan kemudian akan
menampilkan informasi
seputar server SQL Server
dengan memanggil
stored procedure
sp_server_info.

<?php
  if ($conn = mssql_connect('localhost', 'sa', '')) {
    $result = mssql_query("EXEC sp_server_info", $conn);
    while ($row = mssql_fetch_array($result)) {
      echo $row['attribute_name'] . ': '
      . $row['attribute_value'] . '<br>';
    }
  }
  else {
    echo 'Koneksi ke SQL Server gagal';
  }
?>

untuk SQL Server 2005 gunakan driver dari
Microsoft sendiri
http://www.microsoft.com/downloads/
    details.aspx?familyid=85f99a70-
    5df5-4558-991f-8aee8506833c&
    displaylang=en

sumber penting :
PHP Manual
http://blogs.msdn.com/sqlphp/
http://www.phpindonesia.com/
http://devzone.zend.com/public/view

Notes:

1) There is no such thing as a 32 bit unsigned integer in VB, so data must be stored in a double, which is actually a floating-point datatype, therefore, be careful to make sure that any value that you will be passing to MySQL is rounded off before you post it. The use of an UNSIGNED INT with VB6 is not reccomended, but you may have some luck with the larger integers of VB.NET.

2) BIGINT cannot be used with ADO, as it will cause errors, you can use the MyODBC option of 16384 (convert BIGINT to INT) to make them funnel down, but from what I understand your BIGINT is then limited to the size of an INT anyway. If a BIGINT is brought into a long, you will be ok up to the limit if the long datatype, after which your data will be corrupted.

3) DECIMAL can be passed to different VB6 Datatypes depending on how you define the DECIMAL column when creating the table. I personally would reccomend staying away from the DECIMAL type, as it takes 1 byte per digit for storage, you are better off using the appropriate numeric type.

4) If you have trouble loading TEXT and NEDIUMTEXT values from a recordset, make sure your max_allowed_packet parameter in MySQL is set appropriately high. I have been able to load text from a MEDIUMTEXT object up to the max_allowed_packet limit set in my server.

5) LONGTEXT data cannot be held in a string, and would need to be treated as a BLOB and written directly to a file using the BLOB handling methods. If using the stream object, change the stream type to adTypeText instead of adTypeBinary.

6) All blob data must be passed using either the getchunk/appendchunk method, or the ADO stream object. The variant in this case becomes a byte array, and cannot be handled directly by VB6.

Setelah aplikasi dibuat tentu ada laporan yang harus di tampilkan. Laporan  yang dibuat menggunakan Crytal Report 8.5, dan bisa aja di gunakan untuk versi-versi lain. Data yang diambil dari MySQL. Tetap menggunakan VBMySQLDirect, tapi ada tambahan kita gunakan juga VBMySQLCrystalDataSource.

Codes VBMySQLCrystalDataSource dapat kita ambil dari hasil download VBMySQLDirect.

Saya sarankan code di include dalam aplikasi aja, karena ada error yang akan terjadi jika kita jadikan class.

Dan tambahkan CRDataSource dalam reference nya “crsource.tlb”

Option Explicit
Private cSQL As String

Public Sub PreviewRpt(pcReportTitle As String, _
poReport As Object, poRs As MYSQL_RS, Optional pcTag As String = “”, Optional pbShownForm As Boolean = True)

Screen.MousePointer = vbHourglass
Dim oNewForm As frmRptViewer
Set oNewForm = New frmRptViewer
On Error Resume Next
‘
With oNewForm
.Tag = pcReportTitle
.Caption = pcReportTitle
.Hide ‘~~berguna untuk laporan langsung di print tanpa preview

Dim pCrystal As VBMySQLCrystalDataSource
Set pCrystal = New VBMySQLCrystalDataSource
Set pCrystal.Recordset = poRs

poReport.Database.SetDataSource pCrystal
Set .crReport = poReport

.crv.ReportSource = .crReport
.crv.ViewReport
Do While .crv.IsBusy
DoEvents
Loop
.crv.Refresh

.crv.Me.Tag = pcTag
If pbShownForm Then .Show

End With

Screen.MousePointer = vbDefault
End Sub