Cách nhập dữ liệu từ VB vào Access (1)

Toi muon lap trinh bang VB de nhap du lieu cho mot table trong Access. Cu the la toi co lam mot form co chua cac textbox de nhap du lieu, xin cac anh chi cho huong dan lam the nao de dua du lieu trong cac textbox do vao mot table trong Access theo cac truong tuong ung. Mong cac anh chi hoi am som. Cam on rat nhieu!

Nguyen Dai An

Hồi âm:

Em men!
Anh that su van chua hieu ro ve cau hoi cua em dua ra. Em nhap du lieu gi vay? Anh da viet thu tu tung phan lien ket giua lap trinh VB va Database de chi dan cach thuc duoi day cho em tham khao them. Vay em lam theo cach huong dan duoi day:

1. Cau tao mot ASCII text file de dung trong thi du nay. Neu em chua co cau tao san the text file, em co the bo qua buoc thu 5 -- Ngoai tru loading Grid1 with data from your text file.
2.Tang them three command buttons and two grid controls (GRID.VBX) to Form1.
3. Dung theo bang chi dan duoi day, dat the properties of the controls ma em da tang them o buoc thu 2.
Control Property New Value
--------------------------------------------------------------------
Command1 Caption "Press to Build Text File and Display in Grid"
Command2 Caption "Press to Transfer Data and Build New DB"
Command3 Caption "Press to Display the Data of the New Database"
Grid1 Cols 5
Grid1 Rows 35
Grid2 Cols 5
Grid2 Rows 35
4.Tang them code toi the (general) section of Form1:
Dim nums(30) As Long
Dim names(30) As String * 20
Dim addresses(30) As String * 25
Dim ss_nums(30) As String * 12
Const DB_LONG = 4
Const DB_TEXT = 10
Const DB_LANG_GENERAL = ";LANGID=0x0809;CP=1252;COUNTRY=0"
5.Tang them code toi the Form load event procedure:
Sub Form_Load ()
Show
grid1.ColWidth(1) = 1000 "For Emp ID
grid1.ColWidth(2) = 2000 "For Emp Name
grid1.ColWidth(3) = 3000 "For Emp Addr
grid1.ColWidth(4) = 2000 "For Emp SSN
grid1.Col = 1
grid1.Row = 0
grid1.Text = "Emp ID"
grid1.Col = 2
grid1.Row = 0
grid1.Text = "Emp Name"
grid1.Col = 3
grid1.Row = 0
grid1.Text = "Emp Addr"
grid1.Col = 4
grid1.Row = 0
grid1.Text = "Emp SSN" grid2.ColWidth(1) = 1000
grid2.ColWidth(2) = 2000
grid2.ColWidth(3) = 3000
grid2.ColWidth(4) = 2000
grid2.Col = 1
grid2.Row = 0
grid2.Text = "Employee ID"
grid2.Col = 2
grid2.Row = 0
grid2.Text = "Employee Name"
grid2.Col = 3
grid2.Row = 0
grid2.Text = "Employee Addr"
grid2.Col = 4
grid2.Row = 0
grid2.Text = "Employee SSN"
End Sub
6.Tang them code toi the Command1 click event procedure:
Sub Command1_Click ()
For i% = 1 To 30
nums(i%) = i%
names(i%) = "John Doe # " + Str$(i%)
addresses(i%) = Str$(i%) + " Mocking Bird Lane"
If i% < 9 Then
"* Enter the following four lines as one, single line:
ss_nums(i%) = Trim$(Str$(i%) + Trim$(Str$(i%))
+ Trim$(Str$(i%)) + "-" + Trim$(Str$(i% + 1))
+ Trim$(Str$(i% + 1)) + "-" + Trim$(Str$(i%))
+ Trim$(Str$(i%)) + Trim$(Str$(i%)) + Trim$(Str$(i%)))
Else
"* Enter the following two lines as one, single line:
ss_nums(i%) = Trim$(Trim$(Str$(999)) + "-" + Trim$(Str$(88))
+ "-" + Trim$(Str$(7777)))
End If
Next i%
Open "Testdata.DAT" For Output As #1
For j% = 1 To 30
Print #1, nums(j%)
Print #1, names(j%)
Print #1, addresses(j%)
Print #1, ss_nums(j%)
Next j%
Close #1
For i% = 1 To 30
grid1.Col = 1
grid1.Row = i%
grid1.Text = nums(i%) "Load Emp IDs
grid1.Col = 2
grid1.Row = i%
grid1.Text = names(i%) "Load Emp Names
grid1.Col = 3
grid1.Row = i%
grid1.Text = addresses(i%) "Load Emp Addrs
grid1.Col = 4
grid1.Row = i%
grid1.Text = ss_nums(i%) "Load Emp SSNs
Next i%
End Sub
7.Tang them code toi the Command2 click event procedure:
Sub Command2_Click ()
Dim newdb As Database
Dim newtb As Table
Dim newtd As New tabledef
Dim newidx As New Index
Dim field1 As New field "For Emp nums
Dim field2 As New field "For Emp names
Dim field3 As New field "For Emp addresses
Dim field4 As New field "For Emp ss_nums
screen.MousePointer = 11 "Display the time to build
Set newdb = CreateDatabase("NEWDB.MDB", DB_LANG_GENERAL)
newtd.Name = "Emp_Table" "* New table name
field1.Name = "Emp_ID" "* Holds Employee ID nums()
field1.Type = DB_LONG
newtd.Fields.Append field1
field2.Name = "Emp_Name" "* Holds Emp names()
field2.Type = DB_TEXT
field2.Size = 20
newtd.Fields.Append field2
field3.Name = "Emp_Addr" "* Holds Employee addr()
field3.Type = DB_TEXT
field3.Size = 25
newtd.Fields.Append field3
field4.Name = "Emp_SSN" "* Holds emp ss_nums()
field4.Type = DB_TEXT
field4.Size = 12
newtd.Fields.Append field4
newidx.Name = "Emp_ID_IDX" "* You have to have an index
newidx.Fields = "Emp_ID"
newidx.Primary = True
newtd.Indexes.Append newidx
newdb.TableDefs.Append newtd
Set newtb = newdb.OpenTable("Emp_Table")
Open "Testdata.dat" For Input As #1
BeginTrans
Do While Not (EOF(1))
newtb.AddNew
Line Input #1, tmp1$ "Retrieve empl_id
Line Input #1, tmp2$ "Retrieve empl_name
Line Input #1, tmp3$ "Retrieve empl_addr
Line Input #1, tmp4$
newtb("Emp_ID") = Trim$(tmp1$) "Place in field1
newtb("Emp_Name") = Trim$(tmp2$) "Place in field2
newtb("Emp_Addr") = Trim$(tmp3$) "Place in field3
newtb("Emp_SSN") = Trim$(tmp4$) "Place in field4
newtb.Update "Save to table
Loop
CommitTrans
Close #1 "Close text file
newtb.Close "Close DB"s table
newdb.Close "Close DB
screen.MousePointer = 0 "Set back to show done
End Sub
8.Tang them code toi the Command3 click event procedure:
Sub Command3_Click ()
Dim db As Database
Dim t As Table
Dim counter%
Set db = OpenDatabase("NEWDB.MDB")
Set t = db.OpenTable("Emp_Table")
counter% = 1 "Start counter at Row=1
Do Until t.EOF
grid2.Col = 1
grid2.Row = counter%
grid2.Text = t(0) "Load Emp ID
grid2.Col = 2
grid2.Row = counter%
grid2.Text = t(1) "Load Emp Name
grid2.Col = 3
grid2.Row = counter%
grid2.Text = t(2) "Load Emp Addr
grid2.Col = 4
grid2.Row = counter%
grid2.Text = t(3) "Load Emp SSN
counter% = counter% + 1
t.MoveNext
Loop
t.Close
db.Close
End Sub
9.Tu the Run menu, em chon Start (ALT, R, S), hoac nhan phim F5 to run chuong trinh nay. Dau tien em nhan vao nut the Command1. Sau do nhan vao nut the Command2 button, va roi nhan vao nut the Command3 button de so sanh cac ket qua. Chuc em vui ve!

Phucusa

Việt Báo

Video nổi bật

Quantum of The Seas: Du thuyền thông minh nhất thế giới
00:00 / --:--

TIN Công Nghệ NỔI BẬT

Những điều tuyệt đối không chia sẻ trên Facebook nếu muốn an toàn

Thậm chí khi đã cài đặt các điều khoản riêng tư rất cẩn thận, bạn vẫn có thể bị lộ các thông tin, hình ảnh nhạy cảm khi đăng chúng lên Facebook. Bởi vì, theo nghiên cứu, trong số 150 ứng dụng hàng đầu trên Facebook, có 90% ứng dụng được phép truy cập đến các thông tin trong tài khoản của bạn!

Hướng dẫn chụp ảnh của iPhone dành cho người mới sử dụng

Sở hữu trong tay một chiếc iPhone, ngoài việc sử dụng các tính năng phục vụ cho công việc cũng như giải trí, chụp ảnh gần như là điều tất yếu. Tuy nhiên, bạn đã biết cách tận dụng hết các tính năng mà camera trên iPhone có thể mang lại? Hãy cùng tham khảo bài viết dưới đây để có được những thông tin quan trọng và cần thiết.

Hướng dẫn kéo dài tuổi thọ pin cho Samsung Galaxy S6

Galaxy S6 là chiếc điện thoại cao cấp nhất của Samsung hiện nay, dù chiếc điện thoại này gây ngạc nhiên cho người dùng về thiết kế và cấu hình, tuy nhiên pin của nó lại khiến không quá nổi trội, chúng ta sẽ tìm cách tăng thời lượng pin cho chiếc điện thoại này.

Cách khắc phục máy tính xách tay bị lỗi thông dụng (phần 2)

Chúng ta lại tiếp tục xử lý khắc phục máy tính xách tay bị lỗi thông dụng trong phần 2 của bài viết này để có thể biết cách xử lý nhanh nhất khi laptop của mình không may bị dính phải những lỗi này.

Nhận xét tin Cách nhập dữ liệu từ VB vào Access (1)

Ý kiến bạn đọc

Viết phản hồi

Bạn có thể gửi nhận xét, góp ý hay liên hệ về bài viết Cách nhập dữ liệu từ VB vào Access (1) bằng cách gửi thư điện tử tới Lien He Bao Viet Nam. Xin bao gồm tên bài viết Cach nhap du lieu tu VB vao Access 1 ở dạng tiếng Việt không dấu. Hoặc Cách nhập dữ liệu từ VB vào Access (1) ở dạng có dấu. Bài viết trong chuyên đề Kinh Nghiệm của chuyên mục Công Nghệ.

How to import data from Access VB (1)
As New, For Emp, Line Input, End Sub, Const DB, As String, data entry, 1, Trim, The, dim, de

I want programming in VB to import data to a table in Access. Specifically I have a form that contains a textbox to enter data, for all his expenses for guidance on how to put data in the textbox into a table in Access by ...

CÓ THỂ BẠN QUAN TÂM
Xem tiếp: Công Nghệ


  • Mr Dam to Quang Le choi ban
    Mr Đàm tố Quang Lê chơi bẩn

    Vụ lùm xùm tranh gà của Đàm Vĩnh Hưng và Quang Lê hiện nay chưa đến hồi kết. Nhiều nghệ sĩ Việt đã lên tiếng bênh Mr. Đàm. ------------ Xem thêm: Mr Đàm tố Quang Lê chơi bẩn, http://vietbao.vn/tp/Mr-Dam-to-Quang-Le-choi-ban/11933036/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Dai gia Ca Mau mua dam tre em
    Đại gia Cà Mau mua dâm trẻ em

    Đại gia miền Tây mua dâm thiếu nữ được cho là thành khẩn khai báo, lý lịch rõ ràng và nhân thân tốt. Gia đình của Việt kiều này đang làm thủ tục bảo lãnh cho ông Tiêu tại ngoại.

  • Nam sinh qua doi truoc ngay tot nghiep
    Nam sinh qua đời trước ngày tốt nghiệp

    Những lời trăng trối cuối cùng của nam sinh qua đời trước lễ tốt nghiệp với người bạn đặc biệt trên facebook cũng khiến nhiều người nghẹn lại. ------------ Xem thêm: Nam sinh qua đời trước ngày tốt nghiệp, http://vietbao.vn/tp/Nam-sinh-qua-doi-truoc-ngay-tot-nghiep/11936114/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Duong sat tren cao Ha Noi uon luon
    Đường sắt trên cao Hà Nội uốn lượn

    Đường sắt đô thị trên cao Cát Linh-Hà Đông uốn lượn như rồng trên nhiều điểm chạy dọc đường Nguyễn Trãi, Trần Phú...

  • Nhung dam cuoi dat vang gay xon xao
    Những đám cưới "dát vàng" gây xôn xao

    Hình ảnh một số cô dâu đeo đầy vàng trong đám cưới ở một số nơi ở Việt Nam không chỉ khiến nhiều người trầm trồ mà còn là tâm điểm của các cuộc tranh luận trên mạng xã hội.

  • Nghin le chuyen tuan qua 2806 0407
    Nghìn lẻ chuyện tuần qua (28/06 - 04/07)

    Cả thế giới phải đối mặt với nắng nóng kỷ lục; Chính thức bắt đầu kỳ thi THPT Quốc gia 2015; Đường sắt trên cao Hà Nội uốn lượn; 10 luật có hiệu lực từ tháng 7/2015; QL 1A bị phá hoại bởi hóa chất lạ; Nạn chặt chém du khách ... là những tin tức nổi bật được dư luận quan tâm trong tuần qua. ------------ Xem thêm: Nghìn lẻ chuyện tuần qua (28/06 - 04/07), http://vietbao.vn/Xa-hoi/Nghin-le-chuyen-tuan-qua-2806-0407/2147574941/157/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Toan canh kinh te tuan 2806 04072015
    Toàn cảnh kinh tế tuần 28/06 - 04/07/2015

    Ngày 1/7 Luật Doanh nghiệp, Luật Nhà ở và Luật kinh doanh BĐS đã chính thức có hiệu lực, EVN khẳng định đã giải thích thỏa đáng tất cả những khiếu nại của người dân và khách hàng liên quan đến việc hóa đơn tiền điện tăng "sốc", con số 63% cán bộ thuế tiêu cực, nhũng nhiễu đã phản ánh đúng tình trạng hiện nay của một bộ phận cán bộ thuế trong quá trình tác nghiệp, sự kỳ lạ trong hệ thống chỉ tiêu kinh tế- xã hội....Cùng với đó, những thông tin về tài chính ngân hàng, thị trường tiêu dùng... tiếp tục là những tin tức, sự kiện kinh tế nóng hổi trong tuần vừa qua. ------------ Xem thêm: Toàn cảnh kinh tế tuần 28/06 - 04/07/2015, http://vietbao.vn/Kinh-te/Toan-canh-kinh-te-tuan-2906-04072015/2147574923/47/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Tin An ninh Phap luat tuan qua 2806 0407
    Tin An ninh - Pháp luật tuần qua (28/06 - 04/07)

    Siêu trộm và những vụ án nổi tiếng; Những vụ hiếp dâm tập thể chấn động; Nhận diện những chiêu lừa bắt cóc trẻ em cha mẹ nên cảnh giác; Xuất hiện nhân chứng mới, ông Chấn chưa thể nhận 7,2 tỷ?; Vì sao ‘ông trùm’ Tàng Keangnam chưa thể ‘đền tội’ như dự kiến?; Đại gia khai bị 'bất lực' trong 2 lần mua dâm thiếu nữ;.....là những tin đáng chú ý trong tuần. ------------ Xem thêm: Tin An ninh - Pháp luật tuần qua (28/06 - 04/07), http://vietbao.vn/An-ninh-Phap-luat/Tin-An-ninh-Phap-luat-tuan-qua-2806-0407/2147574905/218/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Nghin le chuyen tuan qua 2106 2706
    Nghìn lẻ chuyện tuần qua (21/06 - 27/06)

    Hoàn lưu bão số 1 làm 15 người chết và mất tích; Xe khách lao xuống vực ở đèo Lò Xo; Sóng lạ đè sóng không lưu Tân Sơn Nhất; Miễn nhiệm bác sĩ giẫm chân lên giường: Nên hay không?; Mạng xã hội và ‘chiếc phanh’ của tình người; Đầu năm 2016 sẽ được hưởng BHXH một lần... là những tin tức nổi bật được dư luận quan tâm trong tuần qua.

  • Toan canh kinh te tuan 2106 27062015
    Toàn cảnh kinh tế tuần 21/06 - 27/06/2015

    Giá điện tăng bất thường được lý giải do mức sử dụng điện năng tăng khiến lượng tiêu thụ điện tăng, thiết bị đo đếm, công tơ điện có vấn đề hay sự tù mù trong cách tính của “nhà đèn”… ------------ Xem thêm: Toàn cảnh kinh tế tuần 21/06 - 27/06/2015, http://vietbao.vn/Kinh-te/Toan-canh-kinh-te-tuan-2106-27062015/2147573276/47/ Tin nhanh Việt Nam ra thế giới vietbao.vn