Sql Suery In Excell 2007-09-28 - By acholyte vb
Back
Hai Everyone, Allow me to introduce myself,
My Name is Benny, I'am from Indonesia,
I have ben use mysqlodbc version 3.51 for my application,
Now I'am studying query sql in excell file, anyone can help me, i have code
like this:
Note ; I Used vb 6 + Mysqlodbc 3.51 + Excell 2003 Prof
Dim cn As New ADODB.Connection
Dim com As New ADODB.Command
Dim rec As New ADODB.Recordset
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:\Tes Excell\Tes.xls;" & _
"Extended Properties=Excel 8.0;"
.Open
If rec.State = adStateOpen Then rec.Close
com.CommandText = "Select * from [sheet1$A1:C4]"
com.ActiveConnection = cn
rec.Open com, , adOpenDynamic, adLockOptimistic
rec.MoveFirst
Do While Not rec.EOF
MsgBox rec(0) + rec(1) + rec(2)
rec.MoveNext
Loop
End With
is there anyone can tell me, about query to find a record and manipulate it
such as addnew, edit/update and delete but only current record, not all record
in 1 sheet in excell file, anyone can help me, please i really need the
solution,
because to find data in excell file, it's very hard because the record it not
fix and range in my query will not able to fill my need, please help me, asap
thx 4 kindness, attention and solution
if you don't mind, you could send the sample directly to my email :
acholyte_rbo@(protected)
Best Regard's
Benny
-- ---- ---- ---- ---- ---- -----
Bergabunglah dengan orang-orang yang berwawasan, di bidang Anda di Yahoo!
Answers
|
|
