Re: [Programmer-VB] koneksi ke SQL server

Thu, 16 Mar 2006 01:27:46 -0800

kalo sy ping bisa mas. sy gak pakai DNS sih....

2006/3/16, Purwedi Kurniawan <[EMAIL PROTECTED]>:
tempatmu pake private network ga? coba di ping dulu dari client ke server, nyambung ga?

On 3/16/06, pupunk <[EMAIL PROTECTED]> wrote:
mas kalo coding berikut sy jalankan di komptr dmn SQL server sy install, it's OK alias bisa cuman kalo dari client koq masih belum bisa juga ya.... mohon pencerahannya.

Private Sub Form_Load()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL As String

Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.Open "provider=SQLOLEDB.1;data source=pegasus;initial catalog=db_gudang;user ID=pupunk;password=234;persist security info=true"

Set rs = New ADODB.Recordset
SQL = "select * from tb_kota"
rs.Open SQL, cnn, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = rs

Set rs = Nothing
End Sub
Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer




SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS





Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke