高分求.net里vb語法操作數(shù)據(jù)庫基本語句

Dim Cnn As New Data.OleDb.OleDbConnection

創(chuàng)新互聯(lián)建站主要從事成都網(wǎng)站建設(shè)、做網(wǎng)站、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)永安,十載網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):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"}

'定義個(gè)數(shù)組,從后面的值能看的出最大下標(biāo)是2,也就是strdx(0),strdx(1)和strdx(2),3個(gè)的默認(rèn)值都為0

Dim

calcount1

As

String

=

"0"

'定義個(gè)字符串變量

Dim

calcount2

As

String

=

"0"

Dim

strvalue

As

Boolean

=

False

'定義strvalue為bool值,改類型變量只有true和false

2種值

If

strdx(0)

=

"0"

Then

TextBox1.Text

=

strdx(0)

"."

這是字符串連接符號(hào),和"+"的區(qū)別是,他把左右2邊的內(nèi)容直接連接的,而"+"可能會(huì)編程運(yùn)算符,例如

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 指令

根據(jù)條件編譯選定的 Visual Basic 代碼塊,需要有#Const 配對(duì)，一般要先用#Const 定義條件編譯器常量

'以下是例子

Module Module1

#Const i = 60

Sub Main()

#If i 30 Then

Console.WriteLine("???") '如果用#Const定義了i，該句語句才會(huì)執(zhí)行，假如用的是private i as integer=60定義，該語句不會(huì)被執(zhí)行

#End If

End Sub

End Module

vb.net查詢語法

順序應(yīng)該是先Connection的Open

con.ConnectionString = constr

con.Open()

dc = New OleDbDataAdapter(sql, constr)

另外你的SQL語句好像有點(diǎn)問題，表名不加單引號(hào)

VB.NET語法問題

前者是二維矩形數(shù)組,即傳統(tǒng)的二維數(shù)組,后者是交錯(cuò)數(shù)組.

有時(shí)，應(yīng)用程序中的數(shù)據(jù)結(jié)構(gòu)是兩維的但不是矩形。例如，一個(gè)月份的數(shù)組，其每個(gè)元素又是天數(shù)的數(shù)組。由于不同的月份有不同的天數(shù)，元素不能構(gòu)成一個(gè)矩形的兩維數(shù)組。在這種情況下，可以使用交錯(cuò)數(shù)組而不是多維數(shù)組。

vb與vb.net有什么區(qū)別？網(wǎng)上哪里有VB.NET視頻教程？謝謝

vb、vbs、vb.net、vba還有很多是基于編程軟件的。你不要盲目相信以為都是一樣的東西，這種叫過程化編程，你只需要調(diào)用類庫和類庫成員，給他屬性賦值然后調(diào)用它的成員方法，函數(shù)編寫規(guī)則是依據(jù)編程軟件定義的。嚴(yán)格來說，現(xiàn)在語言是互通的，只有細(xì)微的區(qū)別，基本原理定型，就像我們java字符串==只能認(rèn)識(shí)int類型，String要用eqaul，C#使用==可以通用一樣的原理，都是明確在外的，基本語法上不會(huì)有太大的改動(dòng)?；A(chǔ)語法就是我們學(xué)C那套，for循環(huán)、foreach遍歷、swicth選擇、if判斷、trycacth機(jī)制...相信每個(gè)人大學(xué)畢業(yè)都滾瓜爛熟。但是我們學(xué)編程可不是學(xué)語言這么簡單的事，最重要的是要學(xué)會(huì)使用人家的軟件去編譯。

VB用vb6.0年代很久了，實(shí)際上vb從編程角度上是非常簡單的，就是安裝使用用戶友好上問題比較多，vb6.0之所以慢慢被淘汰主要是類庫有限；vbs其實(shí)跟vb是一種產(chǎn)物，html對(duì)它的支持僅僅依賴windows操作系統(tǒng)的類庫環(huán)境，實(shí)際上現(xiàn)在很少用了，以前我們用dreamweaver還用到點(diǎn)，基本后面就不用了，因?yàn)閖s迅速取代它；vba是基于microsoft office的，你進(jìn)入excel或者access模塊編程界面，你會(huì)發(fā)現(xiàn)vba會(huì)大大減化你的操作，vba嚴(yán)格來說成了一種配置語言，你按它的規(guī)矩配置就好了；vb.net之所以有很多人用，不在于vb語言，而是vs studio這個(gè)編譯環(huán)境，基于托管代碼或.net core編程你需要了解.net的類庫環(huán)境，.net這幾年迅速發(fā)展，更重要的技術(shù)還是nuget強(qiáng)大的資源庫。

所以你的問題表述上就有問題，你該問Vb6.0和vs vb.net的區(qū)別，單單從語言角度，他們好像都叫vb，vb語言自身范圍是沒有任何區(qū)別的，但是vb編譯環(huán)境天壤之別。