當前位置:首頁 » 操作系統 » vbnet資料庫開發

vbnet資料庫開發

發布時間: 2022-07-05 14:50:55

『壹』 vb.net 如何做到一個子窗體綁定一個資料庫

加個模塊,定義公共變數2個窗體都可以對資料庫進行讀寫,每次讀寫之前先刷新一次,保證數據最新就行了。


VB.NET的特點:

1.真正成為面向對象以及支持繼承性的語言。

2.窗體設計器支持可視化繼承,並且包含了許多新的特性,比如自動改變窗體大小、資源本地化支持、數據類工具內在支持XML數據。

3.直接建立在.NET的框架結構上,因此開發人員可以充分利用所有.NET平台特性,也可以與其他的.NET語言交互。

4.為Windows應用程序提供了XCOPY部署,開發者不再需要為DLL的版本問題擔憂。

『貳』 圖解如何位置vb.net環境開發資料庫

有關使用VB.net連接資料庫的相關內容
請搜索
"VB.net
sqlServer"

「VB.net
Access"

『叄』 如果今後想在資料庫開方面發展,那麼我應該學好哪些知識現在社會上的資料庫開發工具VB.NET用的多嗎

首先需要說明的是,vb.net不是資料庫開發工具,雖然它能做數據方面的應用.
想要在資料庫方面發展,最基礎的要會sql語句(重要),然後選擇一個專業的資料庫開發工具,如oracle,microsoft sql server,pb,mysql,vfp等都是不錯的選擇,選擇好開發工具後,學習它,從簡單的應用開始做起,直到自己能獨立做出幾個項目來.

『肆』 VB.NET 創建sql資料庫,數據表

在VB.NET中 用代碼 利用SQL語句創建資料庫、表、存儲過程、視圖、索引、規則、修改表、查看數據等的方法 - 我們的家 - 博客頻道 - CSDN.NET
http://blog.csdn.net/jiangliqing1234/article/details/7518201

『伍』 vb.net 寫資料庫

你這是向sql後台資料庫寫數據嗎?
sqldataadapter1.update 改須指定有效的updatecommand,我一直沒有看到
給你個例子你看吧:

'首先指定有效的UpdateCommand
sqlstr = "insert into Playlist(PlayName,PlayPath)values('" & TextBox4.Text.Trim & "','" & TextBox5.Text.Trim & "')"

Mole1.Mycommand.CommandText = sqlstr

'增加新一行(此行必須,要不不能與後台同步,並且後面調用update會出錯)
Mole1.MyDataSet.Tables("Music").Rows.Add()

Mole1.MyDataAdaPter.InsertCommand = Mole1.Mycommand
Mole1.MyDataAdaPter.Update(Mole1.MyDataSet, "Music")

MsgBox("增加數據成功!!")

『陸』 VB.Net資料庫編程的問題

你的這個只寫刪除datagrid表格里的數據啦...跟本就沒有寫刪除資料庫的.也沒有更新資料庫的.
以下是刪除按鈕的代碼..
If MsgBox("數據刪除不可恢復,確認刪除數據么?", vbYesNo) = vbYes Then
rec.Delete
rec.MoveNext
rec.Requery
End If
以下是form窗體的datagrid顯示數據表的代碼:
If rec.State = adStateOpen Then rec.Close
SQL = "select * from jbxx" '定義sql查詢語句
rec.Open SQL, con, adOpenStatic, adLockOptimistic '打開記錄集
Set dg.DataSource = rec '用datagrid控制項顯示記錄集
以下是模塊..
Public con As New Connection '定義數據連接,公共變數
Public coon, coom As String

Sub Main()
ChDir App.Path '轉換相對路徑

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cq.mdb;Persist Security Info=False"
'定義資料庫連接

con.CursorLocation = adUseClient '以客戶端的方式打開

con.Open ' 打開連接
登陸.Show
End Sub
希望能幫到你...

『柒』 asp.net(vb)資料庫開發問題

暈,不需要什麼控制項。
SqlConnection myConnection = new SqlConnection(ConfigurationManager.AppSettings["SQLCONNECTIONSTRING"].ToString());
SqlCommand scd = new SqlCommand();
scd.Connection = myConnection;
scd.CommandText = "Login_Test";
scd.CommandType = CommandType.StoredProcere; //在這里設置要執行的是sql語句還是存儲過程。
scd.ExecuteNonQuery(); //執行存儲過程與執行sql語句是一樣的方法。

『捌』 vb.net+資料庫編程問題

使用OleDb將資料庫綁定datagridview,然後添加RowHeaderMouseClick事件,在此事件中定義選中某一行後在textbox中顯示相應的數據,在添加的按鈕中定義打開form2,用sql語句查詢資料庫得到想要的關鍵字所關聯的數據,顯示出來就可以了。這里我給你一部分我寫過的代碼,基本上和你的要求很像,但是不完全一樣,你自己研究研究,改改應該就可以了。

'datagridview綁定資料庫

Public Class form1

Private ObjetConnection As OleDbConnection

Private ObjetCommand As OleDbCommand

Private ObjetDataAdapter As OleDbDataAdapter

Private ObjetSet As New DataSet()

' SQL語句

Private strSql As String

Private ObjetDataTable As DataTable

Private ObjetDataRow As DataRow

Private Numeroligne As Integer

'定義路徑

Private strConn As String

Private ObjetCommandBuilder As OleDbCommandBuilder

Dim dv As New DataView

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

strConn =
"Provider=Microsoft.ACE.OLEDB.12.0; Data source=" & Application.StartupPath & "\文件名.accdb" /此處文件路徑

strSql =
"Select * 表名 "

ObjetConnection =
New OleDbConnection()
ObjetConnection.ConnectionString = strConn

ObjetConnection.Open()

ObjetCommand =
New OleDbCommand(strSql)

ObjetDataAdapter =
New OleDbDataAdapter(ObjetCommand)

ObjetCommand.Connection() = ObjetConnection

ObjetDataAdapter.Fill(ObjetSet,
"表明")

dv.Table = ObjetSet.Tables(
"表名")
DataGridView1.DataSource = dv


ObjetConnection.Close()

End Sub

/此處是RowHeaderMouseclick事件

Private Sub DataGridView1_RowHeaderMouseClick(sender As Object, e As ) Handles DataGridView1.RowHeaderMouseClick
此處添加顯示表中相應信息
Me.TextBox1.text = DataGridView1.SelectedRows(0).Cells(0).Value
Me.TextBox2.text = DataGridView1.SelectedRows(0).Cells(1).Value
.........

End Sub

『玖』 vb.net資料庫操作

參考一下下面這段代碼就可以了。

Imports System.Data
'引入資料庫操作類命名空間
Imports System.Data.OleDb
'引入ADO.NET操作命名空間
Public Class FrmModifystInfo
Inherits System.Windows.Forms.Form
Public ADOcmd As OleDbDataAdapter
Public ds As DataSet = New DataSet()
'建立DataSet對象
Public mytable As Data.DataTable
'建立表單對象
Public myrow As Data.DataRow
'建立數據行對象
Public rownumber As Integer
'定義一個整型變數來存放當前行數
Public SearchSQL As String
Public cmd As OleDbCommandBuilder
'======================================================
#Region " Windows 窗體設計器生成的代碼 "

#End Region
'======================================================
Private Sub FrmModifystInfo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
'窗體的載入
TxtSID.Enabled = False
TxtName.Enabled = False
ComboSex.Enabled = False
TxtBornDate.Enabled = False
TxtClassno.Enabled = False
TxtRuDate.Enabled = False
TxtTel.Enabled = False
TxtAddress.Enabled = False
TxtComment.Enabled = False '設置信息為只讀
Dim tablename As String = "student_Info "
SearchSQL = "select * from student_Info "
ExecuteSQL(SearchSQL, tablename) '打開資料庫
ShowData() '顯示記錄
End Sub

Private Sub ShowData()
'在窗口中的textbox中顯示數據
myrow = mytable.Rows.Item(rownumber)
TxtSID.Text = myrow.Item(0).ToString
TxtName.Text = myrow.Item(1).ToString
ComboSex.Text = myrow.Item(2).ToString
TxtBornDate.Text = Format(myrow.Item(3), "yyyy-MM-dd ")
TxtClassno.Text = myrow.Item(4).ToString
TxtTel.Text = myrow.Item(5).ToString
TxtRuDate.Text = Format(CDate(myrow.Item(6)), "yyyy-MM-dd ")
TxtAddress.Text = myrow.Item(7).ToString
TxtComment.Text = myrow.Item(8).ToString
End Sub

Private Sub BtFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtFirst.Click
'指向第一條數據
rownumber = 0
ShowData()
End Sub

Private Sub BtPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtPrev.Click
'指向上一條數據
BtNext.Enabled = True
rownumber = rownumber - 1
If rownumber < 0 Then
rownumber = 0 '如果到達記錄的首部,行號設為零
BtPrev.Enabled = False
End If
ShowData()
End Sub

Private Sub BtNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtNext.Click
'指向上一條數據
BtPrev.Enabled = True
rownumber = rownumber + 1
If rownumber > mytable.Rows.Count - 1 Then
rownumber = mytable.Rows.Count - 1 '判斷是否到達最後一條數據
BtNext.Enabled = False
End If
ShowData()
End Sub

Private Sub BtLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtLast.Click
'指向最後一條數據
rownumber = mytable.Rows.Count - 1
ShowData()
End Sub

Private Sub BtDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtDelete.Click
mytable.Rows.Item(rownumber).Delete() '刪除記錄
If MsgBox( "確定要刪除改記錄嗎? ", MsgBoxStyle.OKCancel + vbExclamation, "警告 ") = MsgBoxResult.OK Then
cmd = New OleDbCommandBuilder(ADOcmd)
'使用自動生成的SQL語句
ADOcmd.Update(ds, "student_Info ")
BtNext.PerformClick()
End If
End Sub

Private Sub BtModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtModify.Click
TxtSID.Enabled = False '關鍵欄位只讀
TxtName.Enabled = True '可讀寫
ComboSex.Enabled = True
TxtBornDate.Enabled = True
TxtClassno.Enabled = True
TxtRuDate.Enabled = True
TxtTel.Enabled = True
TxtAddress.Enabled = True
TxtComment.Enabled = True
End Sub

Private Sub BtUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtUpdate.Click
If Not Testtxt(TxtName.Text) Then
MsgBox( "請輸入姓名! ", vbOKOnly + vbExclamation, "警告 ")
TxtName.Focus()
Exit Sub
End If
If Not Testtxt(ComboSex.Text) Then
MsgBox( "請選擇性別! ", vbOKOnly + vbExclamation, "警告 ")
ComboSex.Focus()
Exit Sub
End If
If Not Testtxt(TxtClassno.Text) Then
MsgBox( "請選擇班號! ", vbOKOnly + vbExclamation, "警告 ")
TxtClassno.Focus()
Exit Sub
End If

If Not Testtxt(TxtTel.Text) Then
MsgBox( "請輸入聯系電話! ", vbOKOnly + vbExclamation, "警告 ")
TxtTel.Focus()
Exit Sub
End If
If Not Testtxt(TxtAddress.Text) Then
MsgBox( "請輸入家庭住址! ", vbOKOnly + vbExclamation, "警告 ")
TxtAddress.Focus()
Exit Sub
End If
If Not IsNumeric(Trim(TxtSID.Text)) Then
MsgBox( "請輸入數字學號! ", vbOKOnly + vbExclamation, "警告 ")
Exit Sub
TxtSID.Focus()
End If
If Not IsDate(TxtBornDate.Text) Then
MsgBox( "出生時間應輸入日期格式(yyyy-mm-dd)! ", vbOKOnly + vbExclamation, "警告 ")
Exit Sub
TxtBornDate.Focus()
End If
If Not IsDate(TxtRuDate.Text) Then
MsgBox( "入校時間應輸入日期格式(yyyy-mm-dd)! ", vbOKOnly + vbExclamation, "警告 ")
TxtRuDate.Focus()
Exit Sub
End If
myrow.Item(0) = Trim(TxtSID.Text)
myrow.Item(1) = Trim(TxtName.Text)
myrow.Item(2) = Trim(ComboSex.Text)
myrow.Item(3) = Trim(TxtBornDate.Text)
myrow.Item(4) = Trim(TxtClassno.Text)
myrow.Item(5) = Trim(TxtTel.Text)
myrow.Item(6) = Trim(TxtRuDate.Text)
myrow.Item(7) = Trim(TxtAddress.Text)
myrow.Item(8) = Trim(TxtComment.Text)
mytable.GetChanges()
cmd = New OleDbCommandBuilder(ADOcmd)
'使用自動生成的SQL語句
ADOcmd.Update(ds, "student_Info ")
'對資料庫進行更新
MsgBox( "修改學籍信息成功! ", vbOKOnly + vbExclamation, "警告 ")
TxtName.Enabled = False
ComboSex.Enabled = False
TxtBornDate.Enabled = False
TxtClassno.Enabled = False
TxtRuDate.Enabled = False
TxtTel.Enabled = False
TxtAddress.Enabled = False
TxtComment.Enabled = False '重新設置信息為只讀
End Sub

Private Sub BtCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCancel.Click
TxtSID.Enabled = False
TxtName.Enabled = False
ComboSex.Enabled = False
TxtBornDate.Enabled = False
TxtClassno.Enabled = False
TxtRuDate.Enabled = False
TxtTel.Enabled = False
TxtAddress.Enabled = False
TxtComment.Enabled = False
End Sub

Public Function ExecuteSQL(ByVal SQL As String, ByVal table As String)
Try
'建立ADODataSetCommand對象
'資料庫查詢函數
ADOcmd = New OleDbDataAdapter(SQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\student.mdb ")
'建立ADODataSetCommand對象
ADOcmd.Fill(ds, table) '取得表單
mytable = ds.Tables.Item(0) '取得名為table的表
rownumber = 0 '設置為第一行
myrow = mytable.Rows.Item(rownumber)
'取得第一行數據
Catch
MsgBox(Err.Description)
End Try
End Function
End Class

『拾』 vb.net 怎麼操作資料庫

如果樓主熟悉VB6,可以直接在項目中添加ADODB的Com引用,這樣你就可以像VB6那樣操作資料庫了!
另外
.NET
Framework中連接資料庫要用到ADO.NET。如果要操作Access資料庫,要用到System.Data.OleDb命名空間下的許多類。
比如按樓主所說,「我想在textbox1中顯示表一中【一些數據】欄位下的第一個內容」:
'首先導入命名空間
Imports
System.Data
Imports
System.Data.OleDb
'然後在某一個事件處理程序中寫:
Dim
conn
As
New
OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=資料庫.accdb;Jet
OLEDB:Database
Password=MyDbPassword")
Dim
command
As
New
OleDbCommand("Select
*
From
數據表",
conn)
conn.Open()
'打開資料庫連接
Dim
reader
As
OleDbDataReader
=
command.ExecuteReader()
'執行SQL語句,返回OleDbDataReader
對象
Do
While
reader.Read()
'讀取一條數據
textbox1.Text
+=
reader("一些數據")
&
VbCrLf
Loop
reader.Close()
'關閉OleDbDataReader
conn.Close()
'關閉連接

熱點內容
ug加工中心編程 發布:2022-08-19 16:15:42 瀏覽:627
少林僵屍2下ftp 發布:2022-08-19 16:15:39 瀏覽:731
linux編譯l 發布:2022-08-19 16:14:09 瀏覽:253
ef存儲過程返回值 發布:2022-08-19 16:14:07 瀏覽:236
明日之後安卓區哪個服好 發布:2022-08-19 16:12:42 瀏覽:215
多對多關系sql 發布:2022-08-19 16:11:08 瀏覽:201
有哪些不吃配置好玩的游戲 發布:2022-08-19 16:10:56 瀏覽:903
順POS機設置密碼多少 發布:2022-08-19 16:09:48 瀏覽:474
上海傲夢編程靠譜嗎 發布:2022-08-19 16:09:41 瀏覽:798
國內的編程課 發布:2022-08-19 16:09:35 瀏覽:412