事前需先在c 槽建立 db backup 資料夾 或者 修改以下紅字的地方
DECLARE @DBName varchar(255)
DECLARE @DATABASES_Fetch int
DECLARE DATABASES_CURSOR CURSOR FOR
select
事前需先在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