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

Hiện tượng thiên nhiên: Vòi rồng ở Sài Gòn
00:00 / --:--

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

9 mẹo với ứng dụng nhắn tin Apple iMessage ít người biết

iMessage là ứng dụng nhắn tin cho phép người dùng iPhone, iPad và Mac nhắn tin cho nhau hoàn toàn miễn phí. Mặc dù rất phổ biến nhưng không phải người dùng iMessage nào cũng hiểu rõ để tận dụng hết mọi tính năng của ứng dụng này.

Thủ thuật sử dụng iPhone hiệu quả hơn cho công việc

Bạn có đang sở hữu một chiếc điện thoại iPhone hay không, và nếu như có, bạn đang sử dụng nó như thế nào, liệu đã phát huy hết những lợi ích mà chiếc smartphone này mang lại cho người dùng hay chưa. Dù có hay không, tôi nghĩ bài viết làm thế nào để sử dụng iPhone của bạn hiệu quả dưới đây sẽ giúp bạn trải nghiệm thiết bị của mình tốt hơn.

Những cách đơn giản để sử dụng smartphone an toàn hơn

Smartphone đã trở thành thiết bị không thể thiếu đối với mỗi người, không còn là thiết bị với chức năng nghe gọi đơn thuần, hiện tại nó đã trở thành một văn phòng di động dành cho người dùng với hàng loạt tính năng làm việc quan trọng, do đó việc thiết lập và bảo mật dữ liệu trên Smartphone trở nên cần thiết hơn bao giờ hết.

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 24h225 Thuc hu vu Hoc sinh HN len nui de sex
    Thời sự 24h(22/5): Thực hư vụ "Học sinh HN lên núi để sex"

     Phó Thủ tướng: ‘Tạo mọi điều kiện tốt nhất cho thí sinh’; Đại biểu xấu hổ, xin lỗi vì điều 60 luật BHXH; Đại gia “khóa môi” Hồ Ngọc Hà là tình cũ của Maya?; "Học sinh HN lên núi để... sex" được thêu dệt thế nào?; 

  • Thoi su 24h215 An mang chan dong trong quan bia
    Thời sự 24h(21/5): Án mạng chấn động trong quán bia

     Chính phủ đề xuất hưởng BHXH một lần; Án mạng chấn động Hưng Yên trong quán bia hơi; K +: Độc quyền vẫn lỗ ngàn tỷ; Thông tin ‘giật mình’ sau vụ chi 18 tỷ chăm cây xanh; Sự thật vụ "học sinh Hà Nội lên núi để... sex"?; 

  • Thoi su 24h205 Dam chet 2 me con di the duc
    Thời sự 24h(20/5): Đâm chết 2 mẹ con đi thể dục

    Giật mình với hình ảnh BTV Hoài Anh thời "hai lúa"; Đâm chết 2 mẹ con đi thể dục, tài xế phóng xe bỏ chạy; CSGT ra quân xử lý "hình ảnh lạ" trên cầu Nhật Tân; Xe đi xuyên Việt đâm xe tải, 9 người thương vong; Ngư dân chưa đồng ý bàn giao vật thể nghi là đuôi máy bay...là những thông tin thời sự nổi bật ngày 20/5.

  • Thoi su tuan qua Su that chiec truc thang tren noc nha dai gia
    Thời sự tuần qua: Sự thật chiếc trực thăng trên nóc nhà đại gia

     VN sẵn sàng ứng phó với tình huống xảy ra trên biển; Hà Nội: Sập cần cẩu dự án đường sắt đô thị; Sự thật về chiếc trực thăng trên nóc nhà của đại gia Hải Dương; Sơn Đoòng thực sự đẹp và quyến rũ như thế nào?; 

  • Thoi su 24h195 Cong bo ket luan thanh tra vu cay xanh
    Thời sự 24h(19/5): Công bố kết luận thanh tra vụ cây xanh

    HN công bố kết luận thanh tra vụ cây xanh; Phó Ban Tổ chức Quận ủy Cầu Giấy ra tòa về tội giết người; Công an sẽ giao trả 5 triệu yên cho chị ve chai!; Hương Tràm trần tình về ồn ào đại gia và siêu xe; Sự thật kinh hoàng trong hàng ngàn nhà nghỉ ở Hà Nội ...là những thông tin thời sự nổi bật trong ngày 19/5.

  • Thuc hu chat luong ao chong nang tien trieu
    Thực hư chất lượng áo chống nắng tiền triệu

    cáo

  • Mong manh hang Viet
    Mong manh hàng Việt!

    Doanh nghiệp Việt cần năng động, sáng tạo hơn để đương đầu với những thách thức, để tiếp tục phát huy trên nền tảng đã gây dựng được

  • Con xem phim sex cha me lam gi
    Con xem phim sex, cha mẹ làm gì?

    Chúng ta cần trang bị kỹ năng, kiến thức về sex, có như vậy mới tạo được 'vắc-xin kháng sex' đủ mạnh cho các em. Chị Đào Lan, có con gái học lớp 5 tại Hà Nội đã thực sự sốc nặng khi cô con gái nhỏ đóng cửa xem phim sex một..

  • Cap doi khach Tay bi cuop gay xon xao
    Cặp đôi khách Tây bị cướp gây xôn xao

    Cặp đôi khách Tây bị cướp ở Hà Nội đang là câu chuyện được nhều bạn trẻ quan tâm. Mới đây, thông tin về cặp đôi khách Tây bị cướp đã có những tình tiết mới. ------------ Xem thêm: Cặp đôi khách Tây bị cướp gây xôn xao, http://vietbao.vn/tp/Cap-doi-khach-Tay-bi-cuop-gay-xon-xao/11384861/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Cho xe mo to vao duong cao toc
    Cho xe mô tô vào đường cao tốc

    Đa số lo ngại xoay quanh chuyện, nếu những tay đua "kiệt xuất" lái mô tô được “thả” vào môi trường phù hợp nhưng chưa đủ “chất” sẽ dễ gây họa.

  • Nghin le chuyen tuan qua 1705 2305
    Nghìn lẻ chuyện tuần qua (17/05 - 23/05)

    Cô gái thừa nhận dựng chuyện nhận nuôi con tử tù; Vụ giấu vàng qua sân bay: Vĩnh viễn không được làm việc trong ngành hàng không; Bé 6 tháng tuổi tử vong bất thường: Mũi tiêm hạ sốt oan nghiệt?; Chỉ rõ những bất thường vụ chi 18 tỷ chăm cây xanh... là những tin tức nổi bật được dư luận quan tâm trong tuần qua.

  • Tong hop Doi song tuan qua 185 235
    Tổng hợp Đời sống tuần qua (18/5 - 23/5)

    Con hẻm miễn phí ở Sài Gòn, những SV làm tình nguyện vùng cao, cậu bé mua đồ ăn cho người vô gia cư là những câu chuyện về tình người thật đẹp. Nhiều chủ đề giáo dục con, những chuyện tình cảm động, nhiều bài viết đáng suy ngẫm và các thông tin an toàn thực phẩm bẩn, mỹ phẩm giả...là những vấn đề nổi bật tuần vừa qua...

  • Diem lai tin suc khoe nong trong tuan 185 245
    Điểm lại tin sức khỏe nóng trong tuần (18/5 - 24/5)

    Bộ Y tế xác minh thông tin gạo giả ở Việt Nam, Phát hiện vịt nuôi bị nhiễm virus H5N1 ở Ninh Thuận, Trẻ mắc tay chân miệng nhập viện tăng đột biến, Đã có câu trả lời vụ khăn ướt nhiễm khuẩn, Giữ sức khỏe ngày nắng nóng cho bé yêu,.... là các thông tin sức khỏe được quan tâm nhất tuần qua.

  • Su kien quoc te noi bat 175 235
    Sự kiện quốc tế nổi bật (17/5 -23/5)

    Tình báo Đức cung cấp thông tin quyết định để Mỹ tiêu diệt Bin Laden; Chính phủ Mỹ khẳng định không thay đổi chiến lược tại Iraq; Cựu Thủ tướng Yingluck ra hầu tòa; Mỹ và Cuba kết thúc vòng đàm phán thứ 4... là những tin đáng chú ý trong tuần qua. ------------ Xem thêm: Sự kiện quốc tế nổi bật (17/5 -23/5), http://vietbao.vn/The-gioi/Su-kien-quoc-te-noi-bat-175-235/2147562992/433/ Tin nhanh Việt Nam ra thế giới vietbao.vn

  • Tin An ninh Phap luat tuan qua 1705 2305
    Tin An ninh - Pháp luật tuần qua (17/05 - 23/05)

    Cặp đôi khách Tây bị cướp gây xôn xao; Người mẹ trẻ nhẫn tâm sát hại đứa con hai tuổi; Cả trăm người thân bị hại gây náo loạn tòa; Mua ma túy về "ăn mừng ra tù", gặp ngay 141; Kế hoạch tiêu 5 triệu yên của 'tỷ phú ve chai'; Trung tướng rởm và chiêu bài lừa đảo chiếm đoạt 12 tỷ đồng;......là những tin đáng chú ý trong tuần.