-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: cool_vjy
Message 8 in Discussion
Hi Saif,
Here is the sample code for excel file as database:
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & filepath & ";" & _
"Extended Properties=""Excel 8.0;"""
Dim myData As New OleDbDataAdapter("SELECT * FROM [" &
strSheet & "Sheet1$]", strConn)
myData.TableMappings.Add("Table", "Sheet1")
myData.Fill(myDataset)
For i = 0 To myDataset.Tables(0).Rows.Count - 1
If Not IsDBNull(myDataset.Tables(0).Rows(i).Item("PHONE")) Then
phoneNumbers_ =
myDataset.Tables(0).Rows(i).Item("PHONE")
Else
phoneNumbers_ = ""
End If
Next
"PHONE" is a column heading in my excel file.
Enjoy
--
Vijay Dubey
Sr. Software Programmer
Peerless software pvt. ltd.
605 center point, J.B. Nagar
Andheri Kurla Road,
Andheri East Mumbai-400059
Ph- 91 22 56764365
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/bdotnet/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
