vb.net基础语法 vb·net

高分求.net里vb语法操作数据库基本语句

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.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)))

VB.net 中，#if 是什么语法？

#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

vb.net查询语法

顺序应该是先Connection的Open

con.ConnectionString = constr

con.Open()

dc = New OleDbDataAdapter(sql, constr)

另外你的SQL语句好像有点问题，表名不加单引号

VB.NET语法问题

前者是二维矩形数组,即传统的二维数组,后者是交错数组.

有时，应用程序中的数据结构是两维的但不是矩形。例如，一个月份的数组，其每个元素又是天数的数组。由于不同的月份有不同的天数，元素不能构成一个矩形的两维数组。在这种情况下，可以使用交错数组而不是多维数组。

vb与vb.net有什么区别？网上哪里有VB.NET视频教程？谢谢

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编译环境天壤之别。