189 8069 5689
Dim Cnn As New Data.OleDb.OleDbConnection
创新互联建站主要从事成都网站建设、做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务永安,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792
Dim DbAdapter As New Data.OleDb.OleDbDataAdapter
Dim Cmd As New Data.OleDb.OleDbCommand
Dim dsAll As New Data.DataSet
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\webapp\test\web.mdb"
Cmd.Connection = Cnn
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'插入
Cmd.CommandText = "insert into main (about) values ('" + TextBox1.Text + "')"
UpdateTable()
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
'修改
Dim ids As Integer
ids = 1
Cmd.CommandText = "update main set about='" + TextBox1.Text + "' where id=" + ids.ToString()
UpdateTable()
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
'删除
Dim ids As Integer
ids = 1
Cmd.CommandText = "delete from main where id=" + ids.ToString()
UpdateTable()
End Sub
Public Sub UpdateTable()
Dim Trans As Data.OleDb.OleDbTransaction
Try
Cnn.Open()
Trans = Cnn.BeginTransaction()
Try
Cmd.Transaction = Trans
Cmd.ExecuteNonQuery()
Trans.Commit()
Catch
Trans.Rollback()
Finally
If (Cnn.State = System.Data.ConnectionState.Open) Then
Cnn.Close()
End If
End Try
Catch
'error message
End Try
End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
'显示
Cmd.CommandText = "select id, about from main"
DbAdapter.SelectCommand = Cmd
DbAdapter.Fill(dsAll, "table1")
If (dsAll.Tables("table1").Rows.Count 0) Then
TextBox1.Text = dsAll.Tables("table1").Rows(0)("about")
Else
TextBox1.Text = ""
End If
End Sub
你这是vb.net的代码,vb中不允许那么写:
Dim
strdx()
As
String
=
{"0",
"0",
"0"}
'定义个数组,从后面的值能看的出最大下标是2,也就是strdx(0),strdx(1)和strdx(2),3个的默认值都为0
Dim
calcount1
As
String
=
"0"
'定义个字符串变量
Dim
calcount2
As
String
=
"0"
Dim
strvalue
As
Boolean
=
False
'定义strvalue为bool值,改类型变量只有true和false
2种值
If
strdx(0)
=
"0"
Then
TextBox1.Text
=
strdx(0)
"."
这是字符串连接符号,和"+"的区别是,他把左右2边的内容直接连接的,而"+"可能会编程运算符,例如
2
3
=
"23"
而
2
+
3
=
5
ElseIf
strvalue
=
False
Then
strdx(0)
=
strdx(0)
"0"
TextBox1.Text
=
strdx(0)
"."
strvalue
=
True
Else
strdx(0)
=
strdx(0)
"0"
TextBox1.Text
=
strdx(0)
Select
Case
calcount1
'
这里开始是分支语句
Case
"+"
TextBox1.Text
=
Str(Val(strdx(1))
+
Val(strdx(0)))
#If...Then...#Else 指令
根据条件编译选定的 Visual Basic 代码块,需要有#Const 配对，一般要先用#Const 定义条件编译器常量
'以下是例子
Module Module1
#Const i = 60
Sub Main()
#If i 30 Then
Console.WriteLine("???") '如果用#Const定义了i，该句语句才会执行，假如用的是private i as integer=60定义，该语句不会被执行
#End If
End Sub
End Module
顺序应该是先Connection的Open
con.ConnectionString = constr
con.Open()
dc = New OleDbDataAdapter(sql, constr)
另外你的SQL语句好像有点问题，表名不加单引号
前者是二维矩形数组,即传统的二维数组,后者是交错数组.
有时，应用程序中的数据结构是两维的但不是矩形。例如，一个月份的数组，其每个元素又是天数的数组。由于不同的月份有不同的天数，元素不能构成一个矩形的两维数组。在这种情况下，可以使用交错数组而不是多维数组。
vb、vbs、vb.net、vba还有很多是基于编程软件的。你不要盲目相信以为都是一样的东西，这种叫过程化编程，你只需要调用类库和类库成员，给他属性赋值然后调用它的成员方法，函数编写规则是依据编程软件定义的。严格来说，现在语言是互通的，只有细微的区别，基本原理定型，就像我们java字符串==只能认识int类型，String要用eqaul，C#使用==可以通用一样的原理，都是明确在外的，基本语法上不会有太大的改动。基础语法就是我们学C那套，for循环、foreach遍历、swicth选择、if判断、trycacth机制...相信每个人大学毕业都滚瓜烂熟。但是我们学编程可不是学语言这么简单的事，最重要的是要学会使用人家的软件去编译。
VB用vb6.0年代很久了，实际上vb从编程角度上是非常简单的，就是安装使用用户友好上问题比较多，vb6.0之所以慢慢被淘汰主要是类库有限；vbs其实跟vb是一种产物，html对它的支持仅仅依赖windows操作系统的类库环境，实际上现在很少用了，以前我们用dreamweaver还用到点，基本后面就不用了，因为js迅速取代它；vba是基于microsoft office的，你进入excel或者access模块编程界面，你会发现vba会大大减化你的操作，vba严格来说成了一种配置语言，你按它的规矩配置就好了；vb.net之所以有很多人用，不在于vb语言，而是vs studio这个编译环境，基于托管代码或.net core编程你需要了解.net的类库环境，.net这几年迅速发展，更重要的技术还是nuget强大的资源库。
所以你的问题表述上就有问题，你该问Vb6.0和vs vb.net的区别，单单从语言角度，他们好像都叫vb，vb语言自身范围是没有任何区别的，但是vb编译环境天壤之别。