13518219792
你可以上迅雷搜索一下 天轰川 ASP.NET入门视频教程
网站建设哪家好，找创新互联公司！专注于网页设计、网站建设、微信开发、小程序制作、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了元氏免费建站欢迎大家使用！
好像是用VB的 我的ASP.NET用的是C#语言 不过都差不多
%@ Import Namespace="System.Data" %
%@ Import NameSpace="System.Data.OleDb" %
script laguage="VB" runat="server"
Dim myConnection As OleDbConnection
Dim myCommand As OleDbCommand
sub page_load(sender as Object,e as EventArgs)
这段话肯定直接写在Default.aspx里面而不是写在CS文件里面的
cs文件头部以引用命名空间开头
比如using System.Data;
连接数据库'1.连接数据库
dim dbname as string
dbname=server.mappath("authors.mdb")
myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source="dbname )
myConnection.Open()
la1.text="Connection Opened!"
你可以直接写在
sub page_load(sender as Object,e as EventArgs)
里面
这个教程不知道你是哪儿看的
他把前台后台代码写在一个页面上了
ASP.NET提倡前台和CS分开
你可以把sub page_load(sender as Object,e as EventArgs)
里面的内容全部写在CS里面
当你学习深入了的时候
你可能会把连接字符串写在webconfig里面
然后写一个类或者函数实现访问数据库
三层架构一目了然
vb.NET中也有ADODB.Recordset，但我们一般用SqlDataReader来实现相同的效果。
Adodb.RecordSet在VB.Net中相对应的是DataTable。这个东西比RecordSet灵活而且支持丰富的过滤及计算方法。
试了好多次,设为科学计数时虽然可以最高设为30位小数,但Excel自动只保留15位有效数字.
下面的程序设置Excel中A列中的数位科学计数,小数保留30位
Set Exl = GetObject("", "Excel.Application")
Exl.ActiveSheet.Column("A:A").NumberFormatLocal= "0.000000000000000000000000000000E+00"
虽然在这里设置的是30位,但Excel只显示15位(不知道为什么)
有关其他的Excel语句怎么写,你可以利用Excel的宏.先用宏实现相应的功能,在用Excel中的VB宏编辑器看看VB代码,虽然和最终VB程序有些差别,但还是有一定联系的.
只能帮你这么多了,有什么问题再联系我吧.
这样就OK了
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql, conn_str As String
'conn_str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\Visual Studio 2008\仓库\WindowsApplication1\ck.mdb;Persist Security Info=False "
conn_str = ConfigurationManager.ConnectionStrings("myconnectionstring").ConnectionString
sql = "select * from us "
conn = New ADODB.Connection
conn.Open(conn_str)
rs = New ADODB.Recordset
rs.Open(sql, conn, 3, 3)
Dim da As New System.Data.OleDb.OleDbDataAdapter
Dim ds As New DataSet
da.Fill(ds, rs, "us")
DataGridView1.DataSource = ds.Tables(0)
DataGridView1.Refresh()
使用ADO控件可以方便的在VB6中访问ODBC数据库，但是通过直接放置ADODS控件来获得ADO的数据连接比较麻烦，我们可以在VB工程中创建一个公共数据模块，将ADO控件的初始化、建立连接、关闭连接等操作都写到函数中，这样就可以在工程的其他模块中共享调用这个ADO连接。
一次完整的ADO调用操作分为如下几个步骤：
打开ADO到数据库的连接，初始化ADO RECORDSET集。
通过写入SQL语句执行查询并返回查询结果RECORDSET集；或者可以通过写入SQL语句执行相应数据库操作。
释放RECORDSET集，关闭数据库连接。
需要注意的是，每个动态创建的ADO同时只能被一个过程调用，如果需要进行多表并行操作，可能需要在公共数据模块中建立多个动态ADO。
下面是相关的代码：
'-----------------------------------------------------------------
'如下代码保存在名为my.bas的工程模块中
Public CONN As Adodb.Connection '定义ADO CONNECTION对象
Public RS As Adodb.Recordset '定义ADO RECORDSET对象
'****************************
'打开数据库连接
'****************************
Function ConnOpen()
Dim ASTR As String
Set CONN = New Adodb.Connection
ASTR = GetDatabasePath 'MDB文件数据库路径
CONN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" ASTR ";Persist Security Info=False"
'本例的ODBC连接为JET4.0的直接到MDB文件的连接，如果使用ODBC数据源可以使用如下CONNECTION串：
'Provider=MSDASQL.1;Password="";Persist Security Info=True;Data Source=数据源名称;Initial Catalog=数据表库名称
