下面是代码和解释,另外我会把文件发到你邮箱里的,你把文件复制到自己的站点文件夹里面运行就可以看到效果了.
Imports System.Data.OleDb
Imports System.Data
Partial Class baidu
Inherits System.Web.UI.Page
'下面是添加记录
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'定义"连接数据库"和"执行SQL"变量
Dim myConnection As OleDbConnection
Dim myCommand As OleDbCommand
Dim dbname As String
dbname = Server.MapPath("baidu.mdb")
myConnection.Open()
'这里可以加上 昵称 是否已经存在的判断语句,就是 SELECT "栏位名" FROM "表格名" WHERE "条件"
myCommand = New OleDbCommand("Insert INTO a1(昵称) Values('" TextBox1.Text "')", myConnection)
myCommand.ExecuteNonQuery()
Response.AddHeader("Refresh", "0")
'关闭连接()
myConnection.Close()
'释放资源
myCommand.Dispose()
End Sub
'下面是删除记录
'DELETE FROM "表格名" WHERE {条件}
myCommand = New OleDbCommand("DELETE FROM a1 WHERE 昵称 = '" TextBox1.Text "'", myConnection)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
myCommand = New OleDbCommand("select * FROM a1", myConnection)
GridView1.DataSource = myCommand.ExecuteReader()
GridView1.DataBind()
End Class
邮件已经发生,请查收.记得给分哈
首先你本地要安装MySQL Connector Net
工程引用mysql.data
连接数据库：
? ?Imports MySql.Data
? Imports MySql.Data.MySqlClient
'连接字符串dbServerName 是ip,下面的英文应该懂得吧.
dim sA as string
? ? ? ? ? ? ? ? ? ? "; user id=" Me.dbUserName "; password=" Me.dbPassWord "; "
dim mvardbConnectionMysql As MySqlConnection
? ? ? ? ? ? With mvardbConnectionMysql
? ? ? ? ? ? ? ? ? .ConnectionString = sA
? ? ? ? ? ? ? ? .Open()
? ? ? ? ? ? End With
dim xx As MySqlDataReader
Dim oC As MySqlCommand = New MySqlCommand(sSql, Me.mvardbConnectionMysql)
oC.CommandType = CommandType.Text
xx= oC.ExecuteReader()
if xx.HasRows
do while xx.read() ? '一次读取一行
loop
end if
? ? Dim oT As MySqlTransaction = Me.mvardbConnectionMysql.BeginTransaction()
? ? Try
? ? ? ? Dim oC As MySqlCommand
'下面的commandtext是执行的更新语句,例如Insert into 语句.
? ? ? ? oC = New MySqlCommand(CommandText, Me.mvardbConnectionMysql, oT)
? ? ? ? oC.CommandType = CommandType.Text
? ? ? ? oC.ExecuteNonQuery()
? ? ? ? oT.Commit()
? ? ? ? oC = Nothing
? ? ? ? oT = Nothing
? ? Catch oe As Exception
? ? ? ? oT.Rollback()
? ? End Try
'Imports System.Data.OracleClient
Imports System.Data.SqlClient
'链接Oracle
'cn = New SqlConnection(""Data Source=TNS名称;Persist Security Info=True;User ID=用户名;Password=密码;" ")
'Dim oOracleConn As OracleConnection = New OracleConnection()
'oOracleConn.ConnectionString = ""Data Source=MyOracleDB; User Id=username; Password=passwd; Integrated Security=no; "
'oOracleConn.Open()
'链接SQL Server
'cn = New SqlConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=;")
'链接Access
Public Class Fun_DataBase
Dim cn As OleDbConnection
Dim cm As OleDbCommand
Dim da As OleDbDataAdapter
Dim ds As DataSet
Try
cn.Open() 'sql语句执行前,必须打开连接
cm = New OleDbCommand(Str_sql, cn)
cm.ExecuteNonQuery()
Dim strValue As String = cm.ExecuteScalar.ToString
'MessageBox.Show(strValue)
Fun_sql1 = strValue
cn.Close()
Fun_sql1 = True
Catch ex As Exception
Fun_sql1 = False
End Try
End Function
Dim cmd As New OleDbCommand("select * from grade", cn)
'Dim dr As SqlDataReader
Dim dr As OleDbDataReader
dr = cmd.ExecuteReader()
Dim strDisplay As String = ""
While dr.Read()
Fun_sqln = dr(0).ToString "|"
End While
Fun_sqln = True
Fun_sqln = False
'Dim s = Split(F.Fun_sqln("ef"), "|")
'Dim i As Integer
'i = UBound(s)
'For i = 0 To UBound(s)
' MessageBox.Show(s(i))
'Next
Fun_sql_exec = True
Fun_sql_exec = False
①.、VB.NET是一个高级程序设计语言
一般都是vb.net传入参数 交给存储过程去做的 你是要在vb.net前台就执行的例子 还是想要调用存储过程的例子
前台的一般就是这样
Dim paras As New NameValueCollection
paras .Append("delete from T_AlarmConfig ")
调用存储过程的就是给写存储过程了,这是调用存储过程的例子,只能理解理解
''' summary
''' 删除数据
''' /summary
''' param name="procName"存储过程名/param
''' param name="paras"存储过程参数/param
''' remarks
''' /remarks
Public Sub DeleteData(ByVal procName As String, _
ByVal paras As NameValueCollection, _
eventCount += 1
'存储过程参数名数组
Dim paraNames As String() = {}
'存储过程参数值数组
Dim paraValues As String() = {}
'传入的参数转化成数组
Me.ConvertNameValueCollection(paras, paraNames, paraValues, STATUS_UPDATE)
'判断系统类型调用相应模块的方法
If isWebSys Then
DeleteDelegateInstance = AddressOf webGw.ExecProc
Else
DeleteDelegateInstance = AddressOf AdoGw.ExecProc
End If
Dim ret As Integer = 0
Dim ds As New DataSet
'--------防止超时异常--------
DeleteDelegateInstance.BeginInvoke(procName, ret, ds, paraNames, paraValues, timeout, _
AddressOf DataDeletedCallBack, Nothing)
以上就是土嘎嘎小编为大家整理的关于vb.net增删的信息相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！