當前位置:首頁 » 操作系統 » vb輸入資料庫數據

vb輸入資料庫數據

發布時間: 2022-09-24 01:07:16

1. vb寫入資料庫

哦簡單 你在更新完成的代碼後邊 加上 insertrow 插入新行(vb代碼我記不清楚 但是就是這個意思)
如果你想保留上次的數據在文本框里 你就事先把 內容保存到變數里 等 插入新行後 在賦值給文本框

2. VB 向資料庫 寫入數據

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public cc As String
Sub aa()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cc = "Provider=sqlOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=library" 『這里要改成連接的資料庫。
cn.Open cc
End Sub
以上是模塊代碼。

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "請輸入商品ID!"
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "請輸入商品名稱!"
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "請輸入商品價格!"
Text3.SetFocus
Exit Sub
End If
sql = "select * from goods where goodid='" & Text1.Text & "'"
Set rs = New ADODB.Recordset
rs.Open sql, cn, 1, 3
If rs.EOF Then
rs.AddNew
rs.Fields(0) = Text1.Text
rs.Fields(1) = Text2.Text
rs.Fields(2) = Text3.Text
rs.Update
MsgBox "商品信息添加成功!"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
Else
MsgBox "此ID已存在,請輸入新ID!"
Text1.Text = ""
Text1.SetFocus
End If
rs.Close
Set rs = Nothing
End Sub

Private Sub Form_Load()
Call aa
End Sub
以上是窗體代碼。

你好好看一下,這是一個正確的源代碼。

3. vb中如何輸入數據

1、vb6中可以使用以下方式輸入數據:
a)使用inputbox()函數輸入數據;
b)使用Textbox控制項(文本框)輸入數據;
c)使用文件輸入數據;
d)使用資料庫輸入數據等。
2、詳解inputbox()函數輸入數據,示例如下:
InputBox 函數:在一對話框來中顯示提示,等待用戶輸入正文或按下按鈕,並返回包含文本框內容的 String。
語法:
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
示例:
Dim Message, Title, Default, MyValue
Message = "Enter a value between 1 and 3" ' 設置提示信息。
Title = "InputBox Demo" ' 設置標題。
Default = "1" ' 設置預設值。
' 顯示信息、標題及預設值。
MyValue = InputBox(Message, Title, Default)

' 使用幫助文件及上下文。「幫助」按鈕便會自動出現。
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' 在 100, 100 的位置顯示對話框。
MyValue = InputBox(Message, Title, Default, 100, 100)
4、其它輸入方法可以網上查找或看MSDN。

4. 怎樣從vb中向資料庫里添加數據

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString="" '數據存放路徑
conn.Open

Dim sql As String
sql="update 表名 set name='"& Text1.text &"',sex='"& Text2.text &"',phone='"& Text3.text &"'"
rs.open sql,conn,3,3
rs.Close
conn.Close
Text1是姓名文本框,Text2是性別文本框,Text3是電話號碼文本框。要注意我寫的電話號碼是字元型的。希望能幫到你。最好不要插入,更新比較好。

5. vb怎麼連接資料庫寫入數據

'在使用前需要先安裝MySql的驅動,進行正確配置
'注意:必須給出正確的伺服器名、資料庫名、表名、資料庫連接的用戶名、密碼
Option Explicit
Dim Cnn As ADODB.Connection '定義ADO連接對象
Dim Records As ADODB.Recordset '定義ADO記錄集對象
'連接到資料庫
Function CnnOpen(ByVal ServerName As String, ByVal DBName As String, ByVal TblName As String, ByVal User As String, ByVal PWD As String) '伺服器名或IP、資料庫名、登錄用戶、密碼
Dim CnnStr As String '定義連接字元串
Set Cnn = CreateObject("ADODB.Connection") '創建ADO連接對象
Cnn.CommandTimeout = 15 '設置超時時間
CnnStr = "DRIVER={MySql ODBC 5.1 Driver};SERVER=" & ServerName & ";Database=" & DBName & ";Uid=" & User & ";Pwd=" & PWD & ";Stmt=set names GBK" '
Cnn.ConnectionString = CnnStr
Cnn.Open
End Function
'關閉連接
Function CnnClose()
If Cnn.State = 1 Then
Cnn.Close
End If
End Function
'把Excel寫入MySql中的資料庫
Function InsertToMySql(ByVal SheetName As String, ByVal TblName As String)
Dim SqlStr As String
Dim i, j As Integer
Dim Columns, Rows As Integer
Columns = VBAProject.func_public.GetTotalColumns(SheetName)
Rows = VBAProject.func_public.GetTotalRows(SheetName)
Set Records = CreateObject("ADODB.recordset")
'取得結果集並插入數據到資料庫
Set Records = CreateObject("ADODB.Recordset")
'以下語句提供了插入思路,我只是把單條記錄的插入方式改為循環,以把所有的記錄添加到表中
'rs.Open "insert into newtable values('" & ActiveSheet.Cells(i, 1).Value & "'," & "'" & ActiveSheet.Cells(i, 2).Value & "')", cnn, 0
For i = 2 To Rows
SqlStr = "INSERT INTO " & TblName & " values('" & Sheets(SheetName).Cells(i, 1).Value & "'" '注意:" values('",字母「v」之前是有空格的!!!
For j = 2 To Columns
SqlStr = SqlStr & ",'" & Sheets(SheetName).Cells(i, j).Value & "'"
Next
SqlStr = SqlStr & ")"
Set Records = Cnn.Execute(SqlStr) 'rs.Open SqlStr, cnn, 0 不能用這條語句實現!!!
Next
MsgBox "Insert!", vbOKOnly, "Excel To MySql"
End Function
'清除對象
Function ClearObj()
Set Cnn = Nothing
Set Records = Nothing
End Function

6. VB 向資料庫添加數據

第一個問題,存儲數據:
使用sqlcommand(如果是sql的):
using
cmd
as
new
sqlcommand()

cmd.connection
=
new
sqlconnection("server=.;database=資料庫名;integrated
security=sspi")

cmd.connection.open()

cmd.commandtext=string.format("insert
into
表名字
values('{0}','{1}'",您的第一個字元串變數,第二個字元串變數【如果是數值類型的,不要在索引前加單引號了】)

cmd.nonexecutequery();
'獲取數據
sqldataadapter
adapter
=
new
sqldataadapter(cmd);
cmd.commandtext="select
*
from
表"
datatable
dt
=
new
datatable()
adapter.fill(dt)
datagridview.datasource
=
dt
end
using

7. 怎麼用vb寫語句把資料庫的值寫到報表裡

在SQL SERVER里往Excel插入數據:

insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)

T-SQL代碼:
INSERT INTO
OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',
'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]
(bestand, prokt) VALUES (20, 'Test')

8. VB向資料庫添加數據(有代碼)

寫一個insert語句
dim sSQL as string

sSQL="insert into tablename (field1,field2) value (value1,value2)"

conn.exceute sSQL

9. vb 中向資料庫插入數據

可以用ADO空間+文本框捆綁數據設計

也可以用普通文本框設計界面,讓用戶錄入信息;然後用代碼實現寫入:
1.建立ADODB的連接對象
2.連接資料庫
3.打開連接對象
4.通過連接對象執行SQL語句(用Insert寫入數據)
5.關閉對象。
希望對你能有所幫助。

熱點內容
怎麼用紙做豌豆解壓玩具 發布:2022-09-29 04:39:17 瀏覽:733
雲存儲播放時間表 發布:2022-09-29 03:58:31 瀏覽:598
新英朗4缸買哪個配置劃算 發布:2022-09-29 03:51:54 瀏覽:123
紅旗5配置怎麼選 發布:2022-09-29 03:44:21 瀏覽:887
linux安裝maven 發布:2022-09-29 03:29:18 瀏覽:596
吉利星瑞豪華天窗版有什麼功能配置 發布:2022-09-29 03:20:28 瀏覽:822
伺服器固定ip和彈性ip一起用 發布:2022-09-29 02:40:49 瀏覽:511
gpioc語言 發布:2022-09-29 02:34:40 瀏覽:959
h乚c語言 發布:2022-09-29 02:34:39 瀏覽:410
迷你世界體驗服正式服密碼是多少 發布:2022-09-29 02:21:19 瀏覽:419