Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Record set versus data adapter
Message
 
To
22/02/2005 04:01:52
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
ASP.NET
Category:
ADO.NET
Environment versions
Environment:
VB.NET 1.1
OS:
Windows XP
Miscellaneous
Thread ID:
00989022
Message ID:
00989247
Views:
13
Cetin,

The problem is not with the Adapter, it works. I would prefer to follow the existing working code in VB/VFP where ADO recordset is used. If it works there, then why it does not work in VB.NET?

cnnExcel = CreateObject("adodb.Connection")
cnnExcel.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _
' Excelfile + ";Extended Properties='Excel 8.0;HDR=YES;IMEX=1';")

....
' Open recordsets
Dim rstExcel As ADODB.Recordset
rstExcel = New ADODB.Recordset
With rstExcel
.ActiveConnection = cnnExcel
.CursorLocation = ADODB.CursorLocationEnum.adUseClient
.CursorType = ADODB.CursorTypeEnum.adOpenStatic
.LockType = ADODB.LockTypeEnum.adLockReadOnly

* the line below gives an error
.Source = "SELECT * from [Matched$]"
....



The error is:
VB Error # 3001 was generated by ADODB.Recordset
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

Cannot figure out why it works in VB and VFP, but does not work in VB NET, and what kind of arguments are not accepted.

Any ideas of where to look into?


>
>Yuri,
>Both versions are working for me:
>
>			string strSQL = "select * from [customer$]";
>			string strCon = @"Provider=Microsoft.Jet.OLEDB.4.0;
>  Data Source=c:\temp\customer.xls;
>  Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'";
>
>//			OleDbConnection con = new OleDbConnection(strCon);
>//			OleDbDataAdapter da = new OleDbDataAdapter(strSQL, con);
>
>			OleDbDataAdapter da = new OleDbDataAdapter(strSQL, strCon);
>			DataSet ds = new DataSet();
>			da.Fill(ds);
>			foreach(DataRow dr in ds.Tables[0].Rows)
>			{
>				Console.WriteLine( "{0} {1}",dr["cust_id"], dr["contact"] );
>			}
>
>
Cetin
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform