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

Bí ẩn về xác ướp còn vẹn nguyên sau hàng thế kỷ
00:00 / --:--

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

Ba thủ thuật truy cập vào Android bị khóa

Để ngăn chặn các truy cập trái phép vào điện thoại, nhiều người thường sử dụng các biện pháp bảo mật có sẵn trên thiết bị đơn cử như Pattern (mô hình khóa) hoặc PIN (mã số nhận dạng cá nhân).

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ệ


  • Thoi su 24h277 QN ngap nang sau tran mua lich su
    Thời sự 24h(27/7): QN ngập nặng sau trận mưa lịch sử

    Quảng Ninh ngập nặng sau trận mưa lịch sử; Biểu tượng sexy nhất của điện ảnh Việt thập niên 90; Vì sao hàng xóm không mua 'bức tường 1 tỷ'?; Hà Nội: Cảnh nhấc bổng xe tải mắc kẹt trên cầu vượt; Hàng chục cán bộ ngân hàng tại phiên xử đại gia nợ 1.600 tỷ...là những thông tin thời sự nổi bật ngày 27/7.

  • Thoi su tuan qua Dung thu phi duong bo voi xe may
    Thời sự tuần qua: Dừng thu phí đường bộ với xe máy

    Khách bị trói vì cố tình hút thuốc trên máy bay Vietnam Airlines; Thí sinh chật vật tra cứu điểm thi; Nữ đại gia bị thợ làm tóc lừa 288 tỷ đồng; Cán bộ Thanh tra Chính phủ bị bắt vì nghi vấn nhận 100 triệu đồng; Du khách Việt ăn cắp hàng hiệu ở Thụy Sĩ; Vụ giết 4 người ở Nghệ An: Bất ngờ về nghi phạm...là những thông tin thời sự nổi bật tuần qua.

  • Thoi su 24h257 Dai tuong Phung Quang Thanh ve den Ha Noi
    Thời sự 24h(25/7): Đại tướng Phùng Quang Thanh về đến Hà Nội

    Đại tướng Phùng Quang Thanh về đến Hà Nội; Triệt phá đường dây cực lớn, thu 5,5 tấn ma túy; LS nói về những 'bất thường' sau phiên xử Lý Nguyễn Chung; gần 40.000 điểm liệt môn Toán: ‘Tôi thấy choáng!’; nhiều người chết và bị thương vì tai nạn giao thông;... là những thông tin thời sự đáng chú ý ngày 25/7.

  • Thoi su 24h247 Hanh khach bi troi tren may bay
    Thời sự 24h(24/7): Hành khách bị trói trên máy bay

     Khi lương chủ tịch tập đoàn nhà nước "bất ngờ" bị lộ; Giọng đọc huyền thoại của VTV giờ ra sao?; Khách bị trói vì cố tình hút thuốc trên máy bay Vietnam Airlines; Trẻ sơ sinh chết bất thường: Bộ Y tế vào cuộc

  • Thoi su 24h237 Mot can bo Thanh tra Chinh phu bi bat
    Thời sự 24h(23/7): Một cán bộ Thanh tra Chính phủ bị bắt

     Nhiều ĐH dự kiến điểm chuẩn nguyện vọng 1; Tuyên án Lý Nguyễn Chung, xác minh thêm lời khai nhân chứng; MC Quang Minh bị hôn mê sâu; Chính thức đề xuất dừng thu phí đường bộ xe máy

  • Du khach Viet an cap o Thuy Si
    Du khách Việt ăn cắp ở Thụy Sĩ

    Chưa tìm được cách ngăn ngừa người ra nước ngoài buôn lậu, trộm cắp hoặc vi phạm thuần phong mỹ tục nước sở tại nên chúng ta sẽ còn xấu mặt dài dài

  • Bat nguyen Chu tich Tap doan Dau khi VN
    Bắt nguyên Chủ tịch Tập đoàn Dầu khí VN

    Cựu Chủ tịch Tập đoàn Dầu khí quốc gia Việt Nam (PetroVietnam - PVN) Nguyễn Xuân Sơn bị khởi tố để điều tra hành vi "thiếu trách nhiệm gây hậu quả nghiêm trọng" - tội danh được quy định tại điều 285 Bộ luật Hình sự. Báo điểm.. ------------ Xem thêm: Bắt nguyên Chủ tịch Tập đoàn Dầu khí VN, http://vietbao.vn/tp/Bat-nguyen-Chu-tich-Tap-doan-Dau-khi-VN/12123701/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Tuan Hung vang bay dap tra My Linh
    Tuấn Hưng "văng bậy", “đáp trả” Mỹ Linh

    Nhiều người tỏ ra không hài lòng với cách ứng xử của Tuấn Hưng, trong đó có diva Mỹ Linh. ------------ Xem thêm: Tuấn Hưng "văng bậy", nổi nóng với Bài hát yêu thích1, http://vietbao.vn/The-gioi-giai-tri/Tuan-Hung-vang-bay-noi-nong-voi-Bai-hat-yeu-thich1/350613756/235/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Trung Quoc giup Lao xay duong sat cao toc
    Trung Quốc giúp Lào xây đường sắt cao tốc

    Dự án giúp Lào có vốn nhưng cũng giúp chính TQ nhằm đạt được 3 mục đích lớn: Xuất khẩu vốn; xuất khẩu công nghệ và xuất khẩu con người.

  • Nu tho dan nguc tran xon xao dan mang
    'Nữ thổ dân ngực trần' xôn xao dân mạng

    Hot girl thổ dân xinh đẹp ngực trần đang trở thành từ khóa hot được cư dân mạng tìm kiếm, thông tin về cô gái này cũng nhanh chóng được tìm thấy.

  • Su kien quoc te noi bat 197257
    Sự kiện quốc tế nổi bật (19/7-25/7)

    Thỏa thuận hạt nhân Iran gặp trở ngại tại Quốc hội Mỹ; Hải quân Trung Quốc tập trận lớn trên Biển Đông; Sách trắng Nhật tố cáo trực tiếp Trung Quốc gây hấn ở Biển Đông; Tin chấn động: NASA công bố tìm thấy Trái đất thứ 2 là những tin chính trong tuần qua.

  • Toan canh Showbiz tuan 207 267
    Toàn cảnh Showbiz tuần (20/7 - 26/7)

    Fan thu thập 2.000 bằng chứng nói xấu Taeyeon (SNSD), Vụ "Lệ Quyên cho con đi tiểu trên máy bay": hết "sốt" báo Mỹ, lại lên báo Anh, Sơn Tùng MTP bị nghi ngờ về giới tính, Sau tin đồn chia tay Kim Lý, Trương Ngọc Ánh tình tứ bên trai lạ, "Trò cưng Mỹ Tâm hát hit Sơn Tùng M-TP vượt trội bản gốc".... là những tin chính nổi bật trong tuần.

  • Nghin le chuyen tuan qua 1907 2507
    Nghìn lẻ chuyện tuần qua (19/07 - 25/07)

    Vụ chặt cây xanh: Hàng loạt cán bộ bị giáng chức, chuyển công tác; Du khách Việt ăn cắp ở Thụy Sĩ; Tranh cãi về màu sơn mới Nhà hát lớn Hà Nội; Bức tường 1 tỉ đồng sẽ bị thu hồi? ....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 (19/07 - 25/07), http://vietbao.vn/Xa-hoi/Nghin-le-chuyen-tuan-qua-1907-2507/2147580278/157/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Toan canh kinh te tuan 1907 25072015
    Toàn cảnh kinh tế tuần 19/07 - 25/07/2015

    Ông Nguyễn Xuân Sơn - nguyên Chủ tịch HĐTV Tập đoàn Dầu khí Quốc gia Việt Nam bị cho thôi chức và bắt tạm giam để điều tra về nguồn vốn 800 tỉ do PVN đầu tư vào Ocean Bank có nguy cơ bị mất trắng; giá xăng giảm "nhỏ giọt"260 đồng/lít, trong khi DN xăng dầu vẫn đang lãi 1.105 đồng/lít xăng còn người tiêu dùng thì vẫn mua xăng đắt và tiếp tục phải đóng vào quỹ Bình ổn giá; WB vừa công bố thông tin về nợ công khiến dư luận xã hội giật mình với con số nợ lên tới 110 tỷ USD, cao hơn nhiều so với các nguồn số liệu từng được công bố... Cùng với đó, những thông tin về BĐS, tài chinh- 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 19/07 - 25/07/2015, http://vietbao.vn/Kinh-te/Toan-canh-kinh-te-tuan-1907-25072015/2147580269/47/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Tin An ninh Phap luat tuan qua 1907 2507
    Tin An ninh - Pháp luật tuần qua (19/07 - 25/07)

    Bắt nguyên Chủ tịch Tập đoàn Dầu khí VN; Lý Nguyễn Chung bị tuyên án 12 năm tù; Cảnh báo tội phạm mới: ‘thôi miên, bỏ thuốc mê’ để gây án; Đánh sập đường dây mua bán, vận chuyển hơn 1.200 bánh heroin; Giáo viên cấu kết với người tình giết chồng; Nạn ném đá xe khách, vì sao dây dưa?;.....là những tin đáng chú ý trong tuần.