Chào bạn, cảm ơn bạn đã đến với diễn đàn Lập trình máy tính.

Để có thể thực hiện việc trao đổi, cũng như chia sẽ kiến thức bạn có cho diễn đàn, xin bạn vui lòng đăng nhập hoặc đăng ký vào diễn đàn.

Xin vui lòng đọc kỹ nội quy trước khi tham gia vào diễn đàn.

Xin cảm ơn
Đăng Nhập

Quên mật khẩu

Top posters
nimgiaminh (118)
 
henrytran (68)
 
ruby (61)
 
lyngocquy (61)
 
Alone (47)
 
wsphuoc (24)
 
kuthanh115 (13)
 
Admin (8)
 
tommyteo (5)
 
nguyenmai (3)
 


Nút sửa : bắt lỗi trùng khoá

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

Nút sửa : bắt lỗi trùng khoá

Bài gửi by lyngocquy on 9/12/2010, 1:45 pm


Code:

Imports System.Data.SqlClient
Public Class Form1
        Dim conn As New SqlConnection
        Sub ketnoi()
        If conn.State = ConnectionState.Closed Then
            conn.ConnectionString = ("data source = localhost;initial catalog=ontap;user=sa;pwd=sa")
            conn.Open()
        End If
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click
        If TextBox1.Text.Trim = "" Then
        MsgBox("Không......", MsgBoxStyle.Exclamation)
        Exit Sub
        End If
        Dim dt As New DataTable
        Dim da As New SqlDataAdapter("select * from SINHVIEN", conn)
        ketnoi()
        da.Fill(dt)
        Dim row As DataRow = dt.Select("MASV = '" & masv & "'")(0)
        row.BeginEdit()
        row("MASV") = TextBox1.Text.Trim
        row("TENSV") = TextBox2.Text.Trim
        row.EndEdit()
        Dim cd As New SqlCommandBuilder(da)
        Try
            da.Update(dt)
            dt.AcceptChanges()
            DataGridView1.DataSource = dt
            MsgBox("Đã cập nhật!", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox("trung khoa")
            Exit Sub
        End Try
    End Sub
End class

=====Chữ ký=============
Cuộc sống có nhiều điều bất ngờ và thú vị mà ta chưa khám phám
avatar
lyngocquy
Quản trị viên
Quản trị viên

Post : 61
Điểm thành tích : 98
Được cảm ơn : 8
Ngày tham gia : 07/12/2010
Đến từ : Vũng Tàu

Quản lý
Cảnh cáo:
0/200  (0/200)

Về Đầu Trang Go down

Re: Nút sửa : bắt lỗi trùng khoá

Bài gửi by lyngocquy on 23/12/2010, 2:19 pm

Ai có cách rút gọn đoạn code trên thì giúp tui nha,nhìn dài dòng quá .

=====Chữ ký=============
Cuộc sống có nhiều điều bất ngờ và thú vị mà ta chưa khám phám
avatar
lyngocquy
Quản trị viên
Quản trị viên

Post : 61
Điểm thành tích : 98
Được cảm ơn : 8
Ngày tham gia : 07/12/2010
Đến từ : Vũng Tàu

Quản lý
Cảnh cáo:
0/200  (0/200)

Về Đầu Trang Go down

Re: Nút sửa : bắt lỗi trùng khoá

Bài gửi by henrytran on 25/12/2010, 3:41 pm

hay đó :\\\\ />

=====Chữ ký=============
quyettam ("""""Học - học nữa - học mãi - đúp hoc tiếp""""") quyettam
avatar
henrytran
Entertainment group
Entertainment group

Post : 68
Điểm thành tích : 107
Được cảm ơn : 19
Ngày tham gia : 25/11/2010
Tuổi : 30
Đến từ : vung tau

Quản lý
Cảnh cáo:
1/200  (1/200)

Về Đầu Trang Go down

Re: Nút sửa : bắt lỗi trùng khoá

Bài gửi by lungocqua on 21/1/2011, 8:24 pm

Bạn muốn cái này gọn thế nào? Cái đó là cập nhật lại toàn bộ dữ liệu của một bảng luôn. Có thể dùng lệnh Update có lẽ sẽ gọn hơn tí đó!
avatar
lungocqua
VIP
VIP

Post : 3
Điểm thành tích : 3
Được cảm ơn : 0
Ngày tham gia : 21/01/2011
Tuổi : 28
Đến từ : Nhơn Trạch - Đồng Nai

Về Đầu Trang Go down

Re: Nút sửa : bắt lỗi trùng khoá

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang

- Similar topics

 
Permissions in this forum:
Bạn không có quyền trả lời bài viết