Chi tiết cách THÊM, SỬA, XÓA, TÌM KIẾM trong VB.NET với CSDL SQL Server
Duynv hướng dẫn chi tiết cách THÊM, SỬA, XÓA, TÌM KIẾM trong VB.NET với CSDL SQL Server. Áp dụng với ứng dụng Quản lý sinh viên hoàn chỉnh. | LẬP TRÌNH CSDL VỚI VB.NET | [ADO.NET] tìm kiếm, thêm, xóa, sửa dữ liệu trên SQL Server. NỘI DUNG:
1 - Chuẩn bị CSDL
2 - Thiết kế giao diện
3 - File clsDataBaseAccess.vb
4 - Lấy chuỗi kết nối với CSDL SQL Server
5 - Load dữ liệu (từ bảng Class) vào Combobox
6 - Load dữ liệu (từ bảng Students) lên DataGridView
7 - Chức năng TÌM KIẾM Sinh viên theo Mã và Tên (Phương pháp tìm kiếm tương tự)
8 - Chức năng THÊM Sinh viên vào CSDL SQL Server
9 - Chức năng SỬA Sinh viên và cập nhật vào CSDL SQL Server
10 - Chức năng XÓA Sinh viên trong CSDL SQL Server
Download file DataBaseAccess.vb: ouo.io/pdZE59
Download code: ouo.io/xoCfi0
Пікірлер: 39
Cảm ơn bạn, code viết rất tường minh và hiện đại.
Tuyệt quá anh ơi! CẢm ơn anh nhìu ạ
Ad cx làm lập trình luôn !
hay lắm anh. ra video mới đi anh
Anh ơi, a có bài như này nhưng kết nối csld access không ạ? a post cho e tham khảo với ạ. Thank's a nhiều!
Sao nhập gõ tiếng việt đến khi view toàn lỗi font hả anh ơi, có cách nào khắc phục
hay đề mô phỏng máy rút tiền của cây ATM được k ạ.
Object reference not set to an instance of an object. lỗi v
phần tìm kiếm a làm được với netbean k
Anh cho e cái code của chức năng tìm kiếm với ạ. Thank's a nhiều!
Chào bạn. cám ơn bạn đã chia sẻ clip rất hay. Cho mình hỏi là khi tìm kiếm nếu họ tên là tiếng việt có dấu thì làm như thế nào; và mình muốn thêm cột stt vào dgv nhưng table sinh viên không có trường này. Stt hiển thị khi dgv hiển thị. XIn Cám ơn bạn
@tonghopphong2882
8 жыл бұрын
cám ơn bạn đã trả lời cậu hỏi của mình. Bạn xem dùm mình đoạn code này, mình đã thêm vào datatable và khi load lên list view thì cột stt không có gì, các cột còn lại thì số số liệu. Private Sub loaddata(ByVal masodonvi As String) ' thủ tục load dữ liệu lên listview con.Open() Dim com As New SqlCommand(String.Format("Select * from khenthuongvie where masodonvi ='{0}'", masodonvi), con) Dim data As New SqlDataAdapter(com) ' Tạo biến data làm dataAdapter để lưu dữ liệu Dim dt As New DataTable ' khai báo biến dt có kiểu datatable để chứa dữ liệu từ dataAdapter data.Fill(dt) con.Close() dt.Columns.Add(New DataColumn("stt", Type.GetType("System.Int16"))) 'Thêm cột stt vào datatable Dim j As Integer For j = 0 To j
anh ơi cho em xin code bài quản lí sinh viên với ạ
Anh ơi, cho em hỏi. Em ví dụ trong frmStudent có thêm cbmSEX (Nam nữ), mình ko nhập mà chọn Nam hoac nữ từ Combobox Mình muốn thêm vô thì làm như thế nào ah Xin cám ơn anh nhiều
@nguyenhoangthanhphong
8 жыл бұрын
Dear anh, giả sử nhưng trong DB có trường giới tính với tùy chọn là nam hoac nữ, trong frmStudents, mình tao 1 cmb để nhập cho trường đó tay vì chọn textbox. Cám ơn anh đã hồi âm
Đi thi mà ko có được copy cái hàm trong database Access thì k chạy dc r
sao mình ko thấy file database ở đâu mà down về hả bạn
cho mình hỏi là trong toolbox của mình không có datatableAdapier vậy minh chỉnh làm sao để cho có để kết nối csdl
@LongNguyen-ju4yj
6 жыл бұрын
using system .data.sqlclien ghi mấy chữ xong ctrl+cách rồi tìm
cảm ơn thầy nhiều ạ nhưng lúc thêm em nó báo là: String or binary data would be truncated. The statement has been terminated. mong thầy giúp ạ
@TopMangaTV
4 жыл бұрын
thông báo dữ liệu của em sẽ bị cắt, làm tròn. Nguyên nhân có thể do em để kiểu dữ liệu nhỏ hơn giá trị nhận được
sao cua minh khong co bien cmbclass nhi ?
Bạn ơi, nếu trong hàm search đó, mình search trên textbox chứ không phải trên combobox thì làm thế nào vậy? If (Me.cmbSearch.SelectedIndex = 0) Then sqlQuery += String.Format(" AND MSSV like '{0}%'", Value) ElseIf (Me.cmbSearch.SelectedIndex = 1) Then sqlQuery += String.Format(" AND HoTen like '{0}%'", Value) End If
@SoundASculptorI
7 жыл бұрын
Tôi cũng muốn điều đó :(
@tuyenong7488
7 жыл бұрын
có thể dùng cách này Private Sub btntimkiem_Click(sender As Object, e As EventArgs) Handles btntk.Click ketnoi() Dim mamay As String = txttimma.Text Dim tenmay As String = txttimten.Text Dim tk As String = "" If RadioButton1.Checked = True Then tk = "select * from maytinh where mamay=N'" + mamay + "'" Dim MyData As New SqlDataAdapter(tk, cnn) Dim MyDT As New DataTable() MyData.Fill(MyDT) dg1.DataSource = MyDT Else RadioButton2.Checked = True tk = "select * from maytinh where tenmay like N'%" + tenmay + "%'" Dim MyData As New SqlDataAdapter(tk, cnn) Dim MyDT As New DataTable() MyData.Fill(MyDT) dg1.DataSource = MyDT End If End Sub
sao em làm phần Loaddatagripview giống trong video vậy mà lại không hiển thị dữ liệu từ sql ra bảng vậy ạ
@duynv2248
8 жыл бұрын
+Thảo Mario, Em cho mình thông tin chi tiết hơn, code + hình ảnh nếu được nhé!
@mariothao8343
8 жыл бұрын
+duynv anh cho em gmail để có thể gửi code hay hình ảnh anh xem hộ em lúc chạy em chỉ hiện tên cột không hiện dữ liệu
@mariothao8343
8 жыл бұрын
+Duy Nguyễn (Duynv) em gửi qua email cho anh rồi đấy ạ anh xem hộ em với ạ !
@giaithuatcautrucdulieu8891
8 жыл бұрын
cho em hỏi sửa lỗi này làm thế nào với ạ ?
@vinhhosy1352
3 жыл бұрын
bạn có cách giải vấn đề này chưa, giúp mình với
File clsDataBaseAccess.vb minh dow o dau vay?
@duynv2248
8 жыл бұрын
+Kiên Nguyễn Phương, trong video có link download ở góc trên cùng bên phải từ phút thứ 11'30 - 14'00
@tuetri8703
8 жыл бұрын
+duynv co duong link nao dau
@hachi2157
8 жыл бұрын
+Tue Tri, góc trên cùng bên phải từ phút thứ 11'30 - 14'00. Chac hoi kho nhin: www.mediafire.com/view/4nou7t7x6j2a6x9/clsDataBaseAccess.vb
:[ hoang mang giáo viên cho tài liệu thì k chạy dc xong toàn phải lên mạng xem mà trên mạng toàn khác khác với file giáo viên