歡迎~ 程式設計 學生 作業 專題製作 程式外包 家教...

事前需先在c 槽建立 db backup 資料夾 或者 修改以下紅字的地方

DECLARE @DBName varchar(255)

DECLARE @DATABASES_Fetch int

DECLARE DATABASES_CURSOR CURSOR FOR
    select

 declare @Part_Id int
 declare @Category_Id int
 declare @Desc varchar(50)

 create table PART (Part_Id int, Category_Id int, Description varchar(50))

 set @Part_Id = 0

        ''' <summary>
        ''' 去除HTML標記
        ''' </summary>
        ''' <param name="Htmlstring">包括HTML的源碼 </param>
        ''' <returns>已經去除後的文字</returns>

以下語法加在Web.config裡

<configuration>
   <system.web>
      <compilation debug="false">
         <codeSubDirectories>

加入null值 => System.DBNull.Value

SqlParameter para=new SqlParameter("@param",(object)DBNull.Value);

        Dim strSql As String = "SELECT * FROM TableName"
        Dim filename As String = Server.MapPath("GetExcel.xls")
        Dim constring As String = System.Web.Configuration.WebConfigurationManager.ConnectionStrings("DatabaseOleDBConnectionString").ToString
        Dim connect As New Data.OleDb.OleDbConnection(constring)

        Try

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then
            If e.KeyChar = "." And InStr(TextBox1.Text, ".") > 0 Then
                e.Handled = True
            Else

DataGridView1.Columns["ContactName"].DisplayIndex = 0;
DataGridView1.Columns["ContactTitle"].DisplayIndex = 1;
DataGridView1.Columns["City"].DisplayIndex = 2;
DataGridView1.Columns["Country"].DisplayIndex = 3;
DataGridView1.Columns["CompanyName"].DisplayIndex = 4;

        For i As Integer = 0 To DataGridView1.ColumnCount - 1
            DataGridView1.Columns(i).SortMode = DataGridViewColumnSortMode.NotSortable
        Next

        If DataGridView1.Rows.Count <> 0 Then
            For i As Integer = 0 To DataGridView1.Rows.Count - 1
                If (i Mod 2) = 0 Then
                    DataGridView1.Rows(i).DefaultCellStyle.BackColor = System.Drawing.Color.LightGreen