十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
可以
创新互联10多年企业网站制作服务;为您提供网站建设,网站制作,网页设计及高端网站定制服务,企业网站制作及推广,对成都会所设计等多个行业拥有丰富的网站营销经验的网站建设公司。
Application.StartupPath
表示根目录,就是程序所在的目录,与vb6的app.path是一样的。你就要这样
".....Data
Source
="
Application.StartupPath
"\xx.xls"
".....Data
Source
=
D:\xx.xls"也可以表示指定位置。
“.....”表示数据库连接的形式,使用的代码省略部分哈。
但是一般做小程序就用Application.StartupPath
,方便些哈,
没有这样的,你要适应新的事物。
DataReader跟Recordset有点像,但是它是不可编辑的。
ado点虐 中有 DataTable ,你可以了解一下它。
一般设计数据库的时候自动编号是自增的,所以新插入的编号是最大的编号
你可以用
select max(id) from table
来获取这个编号
; 在VB 在 ADO是大家在数据库编程中用得较多的 而在新的中 虽然也可以用它来查询数据库 但在与新的datagrid的绑定中 不能像以前那样使用 datagrid datasoure=rs 而是需要一定的转化 因为新的datagrid datasoure所对应的是 datatable或dataset 而并不是原来的Recordset 所以 在使用中 要把Recordset转换成datatable或 dataset 我们以datatable为例 Function RecordsetToDataTable(ByVal adoRS As ADODB Recordset ByVal strTable As String) adoRS MoveFirst() Dim dt As DataTable dt = New DataTable(strTable) Dim i As Integer Dim strcolname As String Dim t As Type Dim dr As DataRow For i = To adoRS Fields Count strcolname = adoRS Fields(i) Name t = adoRS Fields(i) Value GetType() dt Columns Add(strcolname t) Next While (Not adoRS EOF) dr = dt NewRow() For i = To adoRS Fields Count dr(i) = adoRS Fields(i) Value Next dt Rows Add(dr) adoRS MoveNext() End While Return dt End Function 以上函数是实现将Recordset转换成DataTable 而我们要做的 就是在窗口的load中加入对ADO中的转化后再进行引用 Dim dts As DataTable dts = RecordsetToDataTable(rsuser login ) 其中rsuser为ado Recordset login 为表名 DataGrid DataSource = dts DefaultView lishixinzhi/Article/program/net/201311/13855