MERRY CHẾT MỆT AND HAPPY NEW YEAR

Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class Form1
Private Sub Form1_Load(...) Handles MyBase.Load
End Sub

Private Sub Button1_Click(......) Handles Button1.Click
Dim oledbcon As New OleDbConnection()
'----Connect to SQL database: 3 way
'sqlcon.ConnectionString = "server=VANDON;database=northwind;trusted_connection =true;"
sqlcon.ConnectionString = "server=VANDON;database=northwind;integrated security=SSPI;"
'sqlcon.ConnectionString = "server=VANDON;database=northwind;UID=test;PWD=123;"
Try
oledbcon.Open()
Catch sqlError As Exception
MessageBox.Show(sqlError.Message, "Connection Error!")
End Try
If oledbcon.State = ConnectionState.Open Then
Me.Text = "Connection success !"
Else
Me.Text = "Fail connection database!"
End If
End Sub
End Class

Viết chương trình thực hiện các thao tác sau:
a/ Nhập từ bàn phím chuỗi ký tự s.
b/ Kiểm tra xem s có chứa ký tự nào khác các ký tự a->z và A->Z, và khoảng trắng không?
c/ Nếu có xóa tất cả các ký tự khác a->z và A->z, và khác khoảng trắng.
d/ Đổi tất cả các ký tự đầu mỗi từ trong s thành ký tự hoa.
e/ Xuất chuỗi s ra màn hình sao cho mỗi từ nằm trên một dòng và không có khoảng trắng đứng trước từ.

Read more...

Cho DSLK l. Đảo ngược các phần tử trong DSLK không được dùng mảng phụ
CTDL-II-10-9.CPP

Em sợ lắm. Giá băng tràn mọi nẻo
Trời đầy trăng, lạnh lẽo suốt xương da.
Người giai nhân: bến đợi dưới cây già;
Tình du khách: thuyền qua không buộc chặt.

Read more...