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

Bấm ngay Subscribe / Đăng Ký xem video hay mới nhất >>

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
Bấm ngay Subscribe / Đăng Ký xem video hay mới nhất >>

Video được xem nhiều nhất

Ghép đầu người: Liệu có giống 'Hồn Trương Ba, da hàng thịt'
00:00 / --:--

Video nổi bật

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

iPhone 6 và iPhone 6s lỗi bộ nhớ, cách khắc phục

Nhiều người dùng iPhone 6s gần đây đã phàn nàn về bộ nhớ trống trên chiếc iPhone của mình. Tình trạng này không xuất hiện trên phiên bản 16 GB, mà những người sở hữu bản iPhone 6/6s 64 GB và 128 GB. Theo phản ánh thì không gian lưu trữ trên điện thoại của họ tự nhiên bị biến mất đầy bí ẩn.

Nhìn lại năm 2015 (Phần 1): Những cánh chim đầu đàn trong làng smartphone

Đây là thời điểm mà mọi thăng trầm trong năm 2015 của các hãng công nghệ đều đã có thể cân đong đo đếm cụ thể. Trước khi chờ đón những điều tuyệt vời ở năm 2016 thì chúng ta hãy cùng xem lại với những nỗ lực của mình, họ đã tạo được dấu ấn gì đáng nhớ trong năm vừa qua.

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 đề 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ệ


  • Thoi su 24h2804 Ca chet do thuy trieu do chua thuyet phuc
    Thời sự 24h(28/04): Cá chết do thủy triều đỏ chưa thuyết phục

    Xử lý nghiêm, thậm chí truy tố nếu để xảy ra ngộ độc do ăn cá chết; Nắng nóng bất thường tại TP.HCM: Trẻ nhỏ đổ bệnh, người già đột qụy; Chuyên gia phản bác nguyên nhân thuỷ triều đỏ làm chết cá; Phát hiện công nhân tráo đổi, làm mới hạn bánh quy hết date; Cháy chung cư ở Linh Đàm: Trẻ vạ vật ngủ ngoài đường

  • Thoi su 24h2704 Be trai bi me ep uong thuoc doc da chet
    Thời sự 24h(27/04): Bé trai bị mẹ ép uống thuốc độc đã chết

    Cá chết bất thường ở Vũng Áng: Thêm 5 thợ lặn nhập viện; Thảm án ở Hải Dương: Bé trai 8 tuổi bị mẹ đẻ ép uống thuốc độc đã chết; Giả mạo facebook nữ sinh bị cưa chân để lừa đảo: Lỗi tại nhà hảo tâm; Dân "tố" nước có mùi hôi, GĐ nước sạch bảo "Đun lên là hết"; Hành trình 18 năm vật vã tìm "tiếng người" cho con gái

  • Thoi su 24h2604 Nam thanh nien o HN bi sat hai da man
    Thời sự 24h(26/04): Nam thanh niên ở HN bị sát hại dã man

    Người nhái lặn 200m dưới kênh đen ngòm ô nhiễm để tìm két sắt; Có nên ăn hải sản khi cá chết hàng loạt ở miền Trung?; Thủy ngân trong không khí Hà Nội: "Khói xe chỉ là nghi ngờ"; Bỏ chất cấm độc hại: Thái Lan mất 6-7 năm, Việt Nam chỉ 6-7 tháng; Hà Nội: Lại một chung cư có nước sạch "sạch" như... nước cống!

  • Thoi su 24h2504 Tre bi bao hanh Noi dau tinh than
    Thời sự 24h(25/04): Trẻ bị bạo hành - Nỗi đau tinh thần

    Những cô gái bị xử tội... hiếp dâm; ‘Ai đầu độc cá cũng phải bị xử lý’!; Nằm rạp xuống đất khi thanh niên quăng mìn ra đường; Trẻ em bị bạo hành: Những nỗi đau về thể xác và tinh thần; Từ những vụ tống tình, tiền bằng ảnh 'nóng': Bài học cho giới trẻ... là những tin tức thời sự nổi bật ngày 25/04/2016.

  • Thoi su 24h2204 Thanh nien lay bua giet nguoi yeu
    Thời sự 24h(22/04): Thanh niên lấy búa giết người yêu

    Công an nóng vội bỏ qua, còn ta nóng vội thì ra vào tù; Vì sao có những miếng thịt bò lại ánh lên màu 7 sắc cầu vồng?; Mỗi ngày cả trăm người đi taxi "thất lạc hành lý"; Số phận như bóng ma của các cô gái Việt bị bán sang Trung Quốc; Lún vào đa cấp liên tỉnh, tiền tỉ bốc hơi

  • Xon xao nhung vu chong danh vo gay phan no
    Xôn xao những vụ chồng đánh vợ gây phẫn nộ

    Bạo lực gia đình từ lâu là một vấn đề nhức nhối trong xã hội, trong đó đáng báo động nhất là tình trạng bạo lực phụ nữ.

  • Sot virus trieu chung va cach dieu tri
    Sốt virus - triệu chứng và cách điều trị

    Bệnh nhân sốt virus có thể khỏi sau 5-7 ngày điều trị. Tuy nhiên, nếu không phát hiện sớm và điều trị kịp thời, bệnh có thể gây ra nhiều biến chứng nguy hiểm. ------------ Xem thêm: Sốt virus - triệu chứng và cách điều trị, http://vietbao.vn/tp/Sot-virus-trieu-chung-va-cach-dieu-tri/13168970/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Dan ba Viet kho nhat the gioi
    Đàn bà Việt khổ nhất thế giới?

    Trên đời này, chỉ có cha mẹ mới có thể hi sinh vì con cái! Đừng nghĩ mình có thể thay đổi được người khác. Sống vì mình đi, thương mình đi, sáng suốt lên, đừng vì sợ thị phi, sợ không làm được mà sống chịu đựng cả đời. Ai bị..

  • Vu chu quan bi xu ly hinh su
    Vụ 'chủ quán bị xử lý hình sự"

    Ông Tấn thuê mặt bằng ở huyện Bình Chánh để bán cà phê, ăn sáng, cơm trưa... nhưng lại bị phạt tiền vì nhiều lý do rồi bị truy tố vì chậm đăng ký kinh doanh...

  • Tang thue moi truong voi xang dau
    Tăng thuế môi trường với xăng dầu?

    Đại diện Bộ Tài chính khẳng định, hiện Bộ Tài chính chưa có kế hoạch trình Chính phủ về điều chỉnh tăng thuế bảo vệ môi trường đối với xăng dầu.

  • Toan canh kinh te tuan 244 3004
    Toàn cảnh kinh tế tuần (24/4 -30/04)

    Trong buổi lễ Kỷ niệm 65 năm ngày thành lập ngành Ngân hàng Việt Nam, Thủ tướng Nguyễn Xuân Phúc yêu cầu ngành điều hành linh hoạt lãi suất, kiềm chế lạm phát, đẩy mạnh tái cơ cấu; theo cách tính của Việt Nam, sau 4 tháng, lạm phát đang dừng ở mức 1,33%; mức lương của người lao động tại Việt Nam là 384-582 USD/tháng.

  • Su kien quoc te noi bat 244304
    Sự kiện quốc tế nổi bật (24/4-30/4)

    Mỹ chi 38 tỷ USD cho phòng thủ tên lửa trong 5 năm tới; một phần tài liệu Panama bí mật sẽ được công bố vào tháng 5; Bà Clinton, ông Trump đứng trước chiến thắng lớn ở 5 bang; Nhật Bản ngơ ngác mất hợp đồng tàu ngầm 39 tỷ USD... là những tin chính trong tuần qua.

  • Nghin le chuyen tuan qua 2404 29042016
    Nghìn lẻ chuyện tuần qua 24/04 - 29/04/2016

    Cá chết hàng loạt tại vùng biển miền Trung; Sự thật về thông tin có thủy ngân lơ lửng trong không khí Hà Nội; Gió thổi đổ cột điện cao thế 500kV; Phản cảm cảnh chân dài mặc bikini 2 mảnh câu khách ở siêu thị tại HN; Cá chết, thuỷ ngân, chất cấm - người Việt sống sao... là những tin tức xã hội nổi bật được dư luận quan tâm trong tuần qua.

  • Ban tin Suc khoe tuan qua 244 304
    Bản tin Sức khỏe tuần qua (24/4 - 30/4)

    Tác động khủng khiếp của ô nhiễm không khí đến sức khỏe; 100% xúc xích Vietfoods chứa chất gây ung thư; Những món khoái khẩu mùa hè dễ gây ngộ độc nhất; Bé 6 tuổi dậy thì sớm vì được mẹ cho ăn một món liên tục trong 2 năm;... là những thông tin Sức khỏe được quan tâm nhất tuần qua.

  • Tong Hop Doi Song Tuan Qua 2443042016
    Tổng Hợp Đời Sống Tuần Qua (24/4-30/4/2016)

    Nhiều khi cha mẹ đã vô tình 'xâm hại' con mà không hay biết; cảnh giác trước những chiêu 'móc túi' của thợ điều hòa; vấn nạn dùng chất cấm trong chăn nuôi; cá chết khiến người dân không dám ăn hải sản...Cùng với những câu chuyện về tình yêu, hạnh phúc gia đình với ý nghĩa sâu xa khiến chúng ta phải suy ngẫm nhiều hơn là các