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 được xem nhiều nhất

Điều đáng sợ xảy ra khi trộn Cocacola và nước tẩy với nhau
00:00 / --:--

Video nổi bật

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

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.

Hướng dẫn khắc phục khi điện thoại Android bị treo, đơ, lag khi sử dụng

Thiết bị chạy Android thường chạy chậm lại, thỉnh thoảng xảy ra hiện tượng treo ứng dụng sau một thời gian sử dụng. Đây là những hiện tượng khá bình thường sinh ra các nguyên nhân phần mềm và hoàn toàn có thể khắc phục được. Bạn có thể tham khảo các hướng dẫn của chúng tôi khi điện thoại Android (hay cả tablet Android) bị lag, giật, treo khi sử dụng.

3 điều cần xem xét trước khi chuyển sang Apple

Trong cuộc họp thường nên hồi cuối tháng 10 vừa qua, CEO Tim Cook của Apple vui mừng thông báo con số kỷ lục người dùng Android chuyển sang iOS, và cứ vào dịp cuối năm, Apple lại tung ra nhiều chương trình khuyến mại lớn nhằm cạnh tranh với Android. Vậy bạn có nghĩ rằng, việc chuyển từ Android sang Apple là một ý tưởng tốt?

Tránh mất tiền oan khi dùng ngân hàng trực tuyến

Bạn nghĩ rằng dùng ngân hàng trực tuyến (online banking) là rất an toàn? Chưa chắc! Ẩn sâu bên trong hệ thống giao dịch này là vô số những rủi ro có thể khiến bạn mất tiền oan mà không biết kêu ai. (Ngân hàng, thông tin, an toàn, trực tuyến)

Facebook ra tính năng cho phép đăng xuất tài khoản từ xa

Facebook chính thức ra mắt tính năng Kiểm tra Bảo mật (Security Checkup) giúp người dùng quản lý, bảo mật cho tài khoản an toàn hơn, có thể đăng xuất tài khoản đang được lưu ở bất kỳ thiết bị nào không mong muố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 đề 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 24h0402 Virus Zika teo nao lay qua duong quan he
    Thời sự 24h(04/02): Virus Zika teo não lây qua đường quan hệ

    Những lần “trảm tướng” nhanh như chớp của Bộ trưởng Thăng; Hành trình vây bắt đối tượng có lệnh truy nã đặc biệt nguy hiểm; Hành lý của khách bị rạch ở sân bay: Thanh tra Bộ GTVT vào cuộc; Phá trọng án trong những ngày Tết nguyên đán đã cận kề;Câu chuyện giảm nghèo chưa bao giờ dừng lại;... là những tin tức thời sự nổi bật ngày 04/02/2016.

  • Thoi su 24h0302 Dot phao no co the bi tu den 7 nam
    Thời sự 24h(03/02): Đốt pháo nổ có thể bị tù đến 7 năm

    Sửa tàu Cát Linh-Hà Đông, Trung Quốc chưa nghe: Tội hình thức; “Ngáo đá” khống chế hai cháu bé, dọa dội nước sôi; "Choáng" với quy trình sản xuất chè Đinh 3 triệu đồng/kg; Sự thật sau lời đồn về cái chết bí ẩn của nam sinh trên cầu; Liên tiếp có nhiều trẻ em nhập viện vì ngộ độc chì trong thuốc cam;... là những tin tức thời sự nổi bật ngày 03/02/2016.

  • Thoi su 24h0202 sap bay lua doi 3 trieu lay 12 trieu
    Thời sự 24h(02/02): sập bẫy lừa đổi 3 triệu lấy 12 triệu

    3/14 mẫu thực phẩm phục vụ Tết không đạt chất lượng; 102 người đi bộ bị xử phạt trong ngày đầu: "Cần nhưng chưa đủ"?; Bị phát hiện bột ngọt từ nguyên liệu TQ, chốt cửa tẩu tán; WHO ban bố tình trạng khẩn cấp toàn cầu về virus Zika;

  • Thoi su 24h0102 Dao mo moi chon trom di 1 phan co the
    Thời sự 24h(01/02): Đào mộ mới chôn, trộm đi 1 phần cơ thể

    Kẻ gian đào mộ mới chôn, trộm đi một phần cơ thể; Đã tháo dỡ hết biển báo dưới 50km/h sau 10 ngày; CSGT trưng dụng tài sản cá nhân, tổ chức: Luật quy định thế nào?; "Người dân đừng trộm hoa ven hồ Gươm nữa"; Đã có kết quả xét nghiệm gạo từ thiện gây ngộ độc;... là những tin tức thời sự nổi bật ngày 01/02/2016.

  • Thoi su 24h2901 Nghi pham giet vo chong dai gia o TG
    Thời sự 24h(29/01): Nghi phạm giết vợ chồng đại gia ở TG

    Nghi “ăn gạo từ thiện… ngộ độc”: Hội nạn nhân chất độc da cam lên tiếng; Hành trình phá đường dây ma túy hội quý tử con nhà giàu; Việt Nam lên phương án đối phó với virus Zika gây teo não; Sân bay Nội Bài lên tiếng vụ "vòi vĩnh": Người tố trên Facebook nói gì?; Coi chừng lỡ chuyến tàu Tết vì... vé không hợp lệ!;... là những tin tức thời sự nổi bật

  • Tet binh than 2016
    Tết bính thân 2016

    Người Việt có thói quen quan tâm tới cuộc sống cá nhân của nhau. Nhưng điều này không phải phù hợp, thậm chí thành khiếm nhã. Tết là dịp điều này thể hiện rõ nhất.

  • Xu phat nguoi di bo vi pham giao thong o HN
    Xử phạt người đi bộ vi phạm giao thông ở HN

    Tai nạn giao thông chết người do người đi bộ gây ra ở TP.HCM và Hà Nội đáng báo động.

  • Hari Won Tran Thanh Yeu that hay PR
    Hari Won - Trấn Thành: Yêu thật hay PR?

    Showbiz Việt hôm qua (3/2) dậy sóng sau khi hình ảnh MC đắt show bậc nhất hiện nay "khóa môi", cõng người yêu cũ Đinh Tiến Đạt xuất hiện trên mạng.

  • Virus Zika gay tat dau nho o tre so sinh
    Virus Zika gây tật đầu nhỏ ở trẻ sơ sinh

    Mỹ vừa ghi nhận ca lây nhiễm virus Zika gây bệnh teo não đầu tiên không phải do muỗi đốt mà dường như từ quan hệ tình dục.

  • Tien gia cong khai rao ban tren facebook
    Tiền giả công khai rao bán trên facebook

    Lợi dùng lòng tham và sự nhẹ dạ cả tin của người dân, một số đối tượng đã dùng thủ đoạn đổi tiền thật lấy tiền giả để chiếm đoạt tài sản. ------------ Xem thêm: Tiền giả công khai rao bán trên facebook, http://vietbao.vn/tp/Tien-gia-cong-khai-rao-ban-tren-facebook/13583762/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Su kien quoc te noi bat 31162
    Sự kiện quốc tế nổi bật (31/1-6/2)

    Lệnh Hoàn Thành tiết lộ cho tình báo Mỹ bí mật thâm cung của Bắc Kinh; Hoà đàm Syria tạm ngừng do giao tranh khốc liệt trên chiến trường; Bà Clinton chính thức giành chiến thắng 'sít sao nhất lịch sử'; Viễn cảnh nước Anh rời khỏi Liên minh châu Âu đã cận kề.... là những tin chính trong tuần qua.

  • Toan canh kinh te tuan 3101 06022016
    Toàn cảnh kinh tế tuần 31/01 – 06/02/2016

    Ngày 2/2/2016 diễn ra buổi họp báo Công bố giá thành sản xuất kinh doanh điện năm 2014, ông Đinh Quang Tri – Phó tổng giám đốc Tập đoàn Điện lực Việt Nam (EVN) khẳng định chưa có kế hoạch tăng giá điện, tuy nhiên tới mùa cao điểm, doanh nghiệp 'chưa nói trước được điều gì'. Cũng trong buổi họp này, tổng kết hoạt động kinh doanh của tập đoàn này, EVN lãi hơn

  • Nghin le chuyen tuan qua 0102 05022016
    Nghìn lẻ chuyện tuần qua 01/02 - 05/02/2016

    Xử phạt người đi bộ vi phạm giao thông ở HN; CSGT trưng dụng tài sản của dân gây tranh cãi; Đề xuất mua tàu Trung Quốc cũ; Hoa trang trí ở hồ Gươm bị ăn trộm; Các điểm bắn pháo hoa giao thừa Tết Bính Thân 2016 tại 64 tỉnh, thành... là những tin tức xã hội nổi bật được dư luận quan tâm trong tuần qua.

  • Tin An ninh Phap luat tuan qua 3101 0602
    Tin An ninh - Pháp luật tuần qua (31/01 - 06/02)

    Cảnh báo nạn trộm cắp, cướp giật dịp Tết; Phận tù 'mồ côi', Tết về rưng rưng nước mắt; Tiền giả công khai rao bán trên facebook; Rượu bia ngày Tết và những hệ lụy: Từ rượu giả đến tai nạn giao thông; Hành trình cảm động của người cha qua 15 tỉnh, thành đi tìm con; Phá án là trách nhiệm chứ không phải chiến công;.....là những tin đáng chú ý.

  • Ban tin Suc khoe tuan qua 311 62
    Bản tin Sức khỏe tuần qua (31/1 - 6/2)

    Thái Lan phát hiện virus Zika, Bộ Y tế Việt Nam họp khẩn; Ăn tiết canh ngày Tết, dễ chết như chơi; Trẻ nhập viện liên tiếp vì ngộ độc chì từ thuốc cam; Không biết bị lạc nội mạc tử cung: Nhiều phụ nữ vô sinh;... là những thông tin Sức khỏe được quan tâm nhất tuần qua.