giúp dùm em đoạn code này với

[hailuabtre]

anh chị viết dùm em đoạn code các nút cmddau,cmdtruoc,cmdsau,cmdcuoi em mới học vb nên chưa ràng lắm giúp dùm em với.

[vogia00]

em ơi post bài kiểu này thì toi, có khó khăn trong thuật toán còn júp chứ thế này thì ai mà giúp

[kito1986]

câu hỏi này khó nhỉ.bạn xem có câu nào dễ hơn ko

[hodanh]

Dim Button1 as New Button()

Button1.Text="Creating a Button"

Button1.Location=New Point(100,50)

Button1.Size=New Size(75,23)

Me.Controls.Add(Button1)

[thaohung]

Hi ...Mình có đoạn mẫu này hi vọng giúp được bạn
Private Sub btnThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThem.Click

Dim conn As New OracleConnection(cnn) ' Visual Basic
'Mo ket noi
'Kiem tra xem USERS da ton tai chua
conn.Open()
mv_Room = ROOM
mv_Room_Name = ROOM_NAME
mv_Room_Address = ROOM_ADDRESS
Dim cmd As New OracleCommand
cmd.Connection = conn
cmd.CommandText = " SELECT DEPTNO,DNAME FROM DEPT "
cmd.CommandType = CommandType.Text
Dim dr As OracleDataReader
dr = cmd.ExecuteReader()
'Check xem da co ma phong va ten da ton tai hay chua
While dr.Read
If dr.Item(0) = mv_Room Or dr.Item(1) = mv_Room_Name Then
blKey = True
Exit While
End If
End While
If blKey = True Then
MsgBox("Da ton tai ma va ten")
Exit Sub
End If
dr.Close()

'Start them moi
Dim myTrans As OracleTransaction
myTrans = conn.BeginTransaction
Try
cmd.CommandText = "INSERT INTO DEPT" _
& "(DEPTNO,DNAME,LOC, AUTO_ID) " _
& " VALUES ( '" & mv_Room & "',' " & mv_Room_Name & "',' " & mv_Room_Address & "', seq_dept.NEXTVAL )"
cmd.ExecuteNonQuery()
cmd.CommandType = CommandType.Text
myTrans.Commit()
Exit Try
Catch ex As Exception
myTrans.Rollback()
End Try
conn.Close()
Exit Sub
End Sub