begini dra, lu harus pancing dulu lewat adodb tar lu stringnya lu copy trs lu
taruh deh stringnya.ini samplenya hasilnya.
Public Sub buka_database()
On Error GoTo slh
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User
ID=sa;Initial Catalog=sperpat;Data Source=UCHENK"
cn.Open
If cn.State = Not adStateOpen Then
MsgBox "Anda Belum mengkoneksi DATA BASE", vbCritical,
"Information"
End
End If
err:
Exit Sub
slh:
If err.Number = -2147467259 Then
MsgBox "Data Base Belum Terkoneksi", vbCritical, "Server Tidak Di
Temukan"
End
Else
MsgBox err.Description, vbInformation, "Information"
End If
Resume err
End Sub
Y INDRA PRAKASA <[EMAIL PROTECTED]> wrote:
mas/mbak2
minta tolong nih, saya baru mau memindahkan database saya dari access ke
sql2000, lha ini saya bingung menghubungkan database dengan visual basic
SQL 2000 server sudah saya install dan saya sudah buat database disitu dengan
nama dbtoko
terus sql server sudah running oke dengan nama marketing/coba(marketing itu
nama komputer saya), terus sistem log on di sqlserver adalah local system
account
di bawah ini adalah source code yang sudah saya buat, yang saya bingung
ngisi data source, user, password dan initial catalognya itu benernya gimana
Dim CN As ADODB.Connection
Private Sub FORM_LOAD()
Set CN = New ADODB.Connection
CN.ConnectionString = "PROVIDER=SQLOLEDB.1; DATA SOURCE=COBA;USER
ID=user; PWD=BUKADATA;INITIAL CATALOG=dbtoko"
CN.Open
End Sub
thanks ya
[Non-text portions of this message have been removed]
---------------------------------
Sucker-punch spam with award-winning protection.
Try the free Yahoo! Mail Beta.
[Non-text portions of this message have been removed]
