How do you connect to database ,What is the script to connect DATA BASE?

How do you connect to database ,What is the script to
connect DATA BASE?

Question Posted / nagireddy sn

2 Answers
6618 Views
Nokia, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

How do you connect to database ,What is the script to connect DATA BASE? ..

Answer / sandipgami84

u need to put above code in "GetSQLData" Function

Is This Answer Correct ?

3 Yes

1 No

How do you connect to database ,What is the script to connect DATA BASE? ..

Answer / sandipgami84

u need to installed "mysql-connector-odbc-3.51.27-win32",
then write down below code,

Dim objCon, ObjRecordSet
ConnString = "Driver=MySQL ODBC 3.51 Driver; server=ServerIP"
ConnString = ConnString &";database=DBName"
ConnString = ConnString &";user=DBusername"
ConnString = ConnString &";password=DBPassword"
Set objCon = createobject("ADODB.Connection")
objCon.Open(ConnString)
Set ObjRecordSet = CreateObject("ADODB.Recordset")
ObjRecordSet.Open CStr("Select * From tbName Where Id =
'1'),objCon
If (not ObjRecordSet.EOF) then
For I = 0 To ObjRecordSet.Fields.Count - 1
If I = 0 Then
On Error Resume Next
GetSQLData = Trim(Cstr(ObjRecordSet.Fields(I)))
Else
On Error Resume Next
GetSQLData = Trim(CStr(GetSQLData)) & "," &
Trim(CStr(ObjRecordSet.Fields(I)))
End If
Next
End If
ObjRecordSet.close
objCon.close
Set ObjRecordSet = Nothing
Set objCon = Nothing
DataBaseConnection = GetSQLData
GetSQLData = ""

-----------
Sandip Gami
+91-9714177088

Is This Answer Correct ?

2 Yes

1 No

Post New Answer