leme

摘要： 沒有出現CrystalReportViewer時,須安裝CRforVS_13_0. 新增1個數據集,新增1個數據表,添加二列,列名要和資料庫名一樣. 修改目標Framework 修改app.config, <startup >改成<startup useLegacyV2RuntimeActivati 阅读全文

摘要： Dim ModuleSql As String Dim n As Integer 'SQLite連線Dim connSQLite As New Data.SQLite.SQLiteConnectionDim CmdSQLite As New Data.SQLite.SQLiteCommand '定义 阅读全文

摘要： '導入命名空間 Imports System.IOImports NPOI.HSSF.UserModelImports NPOI.HPSFImports NPOI.POIFS.FileSystem Private Sub A1() '自定格式 Dim workbook As HSSFWorkbook 阅读全文

摘要： '導入命名空間Imports System.IO Imports NPOI.HSSF.UserModelImports NPOI.HPSFImports NPOI.POIFS.FileSystem Private Sub A1() Dim ts As String'文字 Dim ns As Doub 阅读全文

摘要： Private Function RMBChinese(ByVal Rmb As Double) As String Dim Rmbexp As String Dim Rmbda As String Dim Icnt As Integer Dim i As Integer Dim Trmb As S 阅读全文

摘要： Imports System.IOImports System.ThreadingImports System.Diagnostics Public Class Form1 Dim A(254) As String Function ping(ByVal IP As Integer) As Stri 阅读全文

摘要： Sub nbtstat(ByVal ip As String) Dim strRst, strRst1, strRst2, strRst3 As String Dim n1, n2, n3 As Integer Try Dim p As New Process() '用Process就可以 p.St 阅读全文

摘要： Function ping(ByVal IP As String) As String If My.Computer.Network.Ping(IP) Then MessageBox.Show("ok") Else MessageBox.Show("ng") End If End Function 阅读全文

摘要： 查詢 Sql = ("SELECT A1, A2, A5, A4 FROM Table1 ") 筆數 Sql = ("Select COUNT(*) From TW01.VW_DECA_oea WHERE (oeb04 = 'TEST')") 更新 Sql1 = ("update Table1 se 阅读全文

摘要： '導入命名空間 Imports ADODB Imports Microsoft.Office.Interop Private Sub A1() Dim Sql As StringDim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset 阅读全文