Hello, all,
Can you provide an example to illustrate how to connect sybase DB
with excel vba. I'll appreicate any reply for this thread.
Thanks.
Devon.
Hello, all,
Can you provide an example to illustrate how to connect sybase DB
with excel vba. I'll appreicate any reply for this thread.
Thanks.
Devon.
Sub GetData()
Const adOpenForwardOnly As Long = 0
Const adLockReadOnly As Long = 1
Const adCmdText As Long = 1
Dim oRS As Object
Dim sConnect As String
Dim sSQL As String
Dim ary
sConnect = "Provider=Sybase.ASEOLEDBProvider;" & _
"Srvr=myASEServer,5000;" & _
"Catalog=myDBName;" & _
"User Id=myUser;" & _
"Password=myPassword"
'this assumes Sybase Adaptive Server 12.5
'5000 is the port number
'change the DBName, UserName & Password to suit
sSQL = "SELECT * From Contacts"
Set oRS = CreateObject("ADODB.Recordset")
oRS.Open sSQL, sConnect, adOpenForwardOnly, _
adLockReadOnly, adCmdText
' Check to make sure we received data.
If Not oRS.EOF Then
ary = oRS.getrows
MsgBox ary(0, 0) & " " & ary(1, 0) & ", " & ary(2, 0)
Else
MsgBox "No records returned.", vbCritical
End If
oRS.Close
Set oRS = Nothing
End Sub
--
HTH
Bob Phillips
(remove nothere from email address if mailing direct)
"Devon" <[email protected]> wrote in message
news:[email protected]...
> Hello, all,
> Can you provide an example to illustrate how to connect sybase DB
> with excel vba. I'll appreicate any reply for this thread.
>
> Thanks.
>
> Devon.
>
Hello, Bob,
Thank you for your great help, it works. I have searched this
solution for long time before.
If the following string also be OK?:
ConnString="Driver={Sybase
System};Srvr=ServerName;Db=abc;Uid=UserID;Pwd=UserPwd"
Not with ADO I don't think.
--
HTH
Bob Phillips
(remove nothere from email address if mailing direct)
"Devon" <[email protected]> wrote in message
news:[email protected]...
> If the following string also be OK?:
> ConnString="Driver={Sybase
> System};Srvr=ServerName;Db=abc;Uid=UserID;Pwd=UserPwd"
>
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks