VB.NET我想在按下一個(gè)按鍵后，將數(shù)據(jù)保存到到數(shù)據(jù)庫，但是一直出錯(cuò)，本人剛剛接觸，實(shí)在不知道哪里錯(cuò)了

vb.net 啊。好語言。。這個(gè)如果用DATASET更新，記得用 COMMANDBUILDER。。。。

創(chuàng)新互聯(lián)成立十載來，這條路我們正越走越好，積累了技術(shù)與客戶資源，形成了良好的口碑。為客戶提供成都做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)、網(wǎng)站策劃、網(wǎng)頁設(shè)計(jì)、主機(jī)域名、網(wǎng)絡(luò)營銷、VI設(shè)計(jì)、網(wǎng)站改版、漏洞修補(bǔ)等服務(wù)。網(wǎng)站是否美觀、功能強(qiáng)大、用戶體驗(yàn)好、性價(jià)比高、打開快等等，這些對(duì)于網(wǎng)站建設(shè)都非常重要，創(chuàng)新互聯(lián)通過對(duì)建站技術(shù)性的掌握、對(duì)創(chuàng)意設(shè)計(jì)的研究為客戶提供一站式互聯(lián)網(wǎng)解決方案，攜手廣大客戶，共同發(fā)展進(jìn)步。

關(guān)于VB.NET制作記事本自動(dòng)保存的問題

分類: 電腦/網(wǎng)絡(luò) 程序設(shè)計(jì) 其他編程語言

問題描述:

我用的是Timer計(jì)時(shí)器：

如何將程序控制住，讓它第一次發(fā)現(xiàn)沒保存后，只擊活一次提示保存，然后使用修改后的保存路徑：（代碼如下）

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'如何將程序控制住，讓它第一次發(fā)現(xiàn)沒保存后，只擊活一次提示保存，然后使用修改后的保存路徑

If SaveFileDialog1.FileName = "" Then

If SaveFileDialog1.ShowDialog Then

rtbox.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)

End If

Else

'如果已經(jīng)選擇了要保存的文件名，則保存文本到文件中

rtbox.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)

End If

End Sub

————————————————————

此代碼執(zhí)行后變成死循環(huán)。

解析:

經(jīng)過我的潛心修煉問題終于是解決了.請(qǐng)看代碼

Imports System.IO

Private strFileName As String = "myRTFdoc.txt"

Private flgFirst As Boolean = True

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

'如何將程序控制住，讓它第一次發(fā)現(xiàn)沒保存后，只擊活一次提示保存，然后使用修改后的保存路徑

Call zc()

End Sub

Private Sub zc()

'Timer2.Stop()

With SaveFileDialog1

.DefaultExt = "txt"

.FileName = strFileName

.Filter = "Text files(*.txt)|*.txt|All files(*.*)|*.*"

.FilterIndex = 1

.InitialDirectory = "c:\"

.OverwritePrompt = True

.Title = "Save Reminding"

End With

'Timer2.Enabled = False

If flgFirst = True Then

If SaveFileDialog1.ShowDialog = DialogResult.OK Then

strFileName = SaveFileDialog1.FileName

Dim objWriter As StreamWriter = New StreamWriter(strFileName, False)

objWriter.Write(rtbox.Text)

objWriter.Close()

objWriter = Nothing

End If

flgFirst = False

'Timer2.Enabled = True

' Timer2.Start()

Else

'flg= second

Dim objWriter As StreamWriter = New StreamWriter(strFileName, False)

objWriter.Write(rtbox.Text)

objWriter.Close()

objWriter = Nothing

End If

'Timer2.Enabled = True

'Timer2.Start()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer2.Enabled = True

' zc()

End Sub

知道問題在哪里嘛?我調(diào)試了確實(shí)是"死循環(huán)"、其實(shí)不是真正的死循環(huán)、是time tick事件你設(shè)定的時(shí)間太短了.估計(jì)只設(shè)置了1-5s左右.那么程序運(yùn)行還需要時(shí)間.所以他就不停地調(diào)用timetick時(shí)間.你的savedialog對(duì)話框根本來不急彈出來.

所以建議你把timer的interval的值設(shè)置高點(diǎn)最好12-15秒 觸發(fā)一次.

當(dāng)然我想還有其他的方法、還沒有徹底取研究下.

比如stop 什么 、那還需要時(shí)間.

至少目前我的方法是可以了.

我設(shè)置的12s P4. 3.0 1G 內(nèi)存 跑下我的程序如果 F10(F8)慢點(diǎn)的話就來不及了.

另為把你的程序小改了下、應(yīng)該可以滿足你的要求了.

vb.net，數(shù)據(jù)庫插入數(shù)據(jù)后不保存

給你一段我過去的vb代碼,vb連接access的,用adodb,很方便

代碼比較丑陋,湊合看吧,是個(gè)自用的通訊錄程序

txl是表名,Mobile,QQ,MSN...都是字段名稱

'將列表框內(nèi)容逐項(xiàng)加入數(shù)據(jù)庫,創(chuàng)建更新sql字串

sqlString

=

"update

txl

set

Mobile='"

Trim$(txt(1).Text)

"',QQ='"

_

Trim$(txt(2).Text)

"',MSN='"

Trim$(txt(3).Text)

"',Email='"

Trim$(txt(4).Text)

"',Phone='"

_

Trim$(txt(5).Text)

"',Home='"

Trim$(txt(6).Text)

"',Birthday='"

txt(7).Text

"',Address='"

_

Trim$(txt(8).Text)

"',Postcode='"

Trim$(txt(9).Text)

"',Info='"

Trim$(txt(10).Text)

_

"'

where

Name='"

Trim$(ListView1.ListItems.Item(SelectIndex).Text)

"'"

'更新記錄

Set

rs

=

conn.Execute(sqlString,

,

adCmdText)

要?jiǎng)?chuàng)建全局變量

Dim

conn

As

ADODB.Connection

'數(shù)據(jù)庫連接

然后form在load的時(shí)候打開鏈接,可以操作數(shù)據(jù)庫

'連接無密碼數(shù)據(jù)庫

Set

conn

=

New

ADODB.Connection

conn.ConnectionString

=

_

"Provider=Microsoft.Jet.OLEDB.4.0;"

_

"Data

Source="

dbName

";"

_

"Persist

Security

Info=False"

'打開連接

conn.Open。

VB.net怎樣保存文件

保存文件的步驟為：

關(guān)閉流，特別是寫入流

關(guān)閉并保存文件

示例代碼如下：

Imports?System.Windows.Forms

Imports?System.IO

Imports?System.Text

Sub?SaveFileDemo()

'打開文件。如果文件不存在則創(chuàng)建新的文件

Dim?myFile?As?New?IO.FileStream("d:\data.txt",?_

FileMode.OpenOrCreate,?_

FileAccess.Write)

'在文件末尾添加一行?

Dim?tw?As?New?StreamWriter(myFile)

myFile.Seek(0,?SeekOrigin.End)

tw.WriteLine("白刃格斗英雄連英模部隊(duì)方隊(duì)亮相閱兵")

'關(guān)閉流

tw.Close()

'關(guān)閉文件并保存文件

myFile.Close()

End?Sub

網(wǎng)站欄目：vb.net無法保存 excel無法保存vb項(xiàng)目
文章網(wǎng)址：http://chinadenli.net/article34/hijcse.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供響應(yīng)式網(wǎng)站、微信公眾號(hào)、網(wǎng)頁設(shè)計(jì)公司、網(wǎng)站營銷、App開發(fā)、營銷型網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)