Buat Dulu ODBC dengan contoh SqlA dan pilih driver sqlanywhere 7.0/8.0
Dim cn as Adodb.Connection
Dim rs as Adodb.Recordset
Dim sql as string
Sub Main()
Set cn = new adodb.connection
Cn.cursorlocation = aduserclient
Cn.Connectionstring = dsn=SqlA
Cn.open
Set rs = new adodb.recordset
Rs.cursorlocation = aduserclient
Rs.locktype = true
Sql = Select * From [Nama Table]
Set rs = cn.execute(sql)
End Sub
-----------------------------------------------
IndoPB - Indonesia PB User Group
To Post a message, send it to: [EMAIL PROTECTED]
To Unsubscribe,send a blank message to: [EMAIL PROTECTED]
Yahoo! Groups Links
---------------------------------
Yahoo! Mail
Use Photomail to share photos without annoying attachments.
[Non-text portions of this message have been removed]
-----------------------------------------------
IndoPB - Indonesia PB User Group
To Post a message, send it to: [EMAIL PROTECTED]
To Unsubscribe,send a blank message to: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indopb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
