คำสั่ง connection string ใส่ notepad แล้วจะเรียกมาใช้ยังไงคับ
ใช้การอ่านแบบ Text File ครับ
Code (VB.NET)
Dim FILE_NAME As String = "C:\Users\Owner\Documents\test.txt"
Dim objReader As New System.IO.StreamReader(FILE_NAME)
TextBox1.Text = objReader.ReadToEnd
objReader.Close()
Date :
2015-09-30 06:35:14
By :
mr.win
ูรูปแบบใน ไฟล์ text
[SectionName]
PropertyName1=PropertyValue1
PropertyName2=PropertyValue2
โค้ด บ้าน ๆ
Code (C#)
using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;
namespace TORServices
{
public static class clsINI
{
[DllImport("kernel32.dll", EntryPoint = "GetPrivateProfileStringA", CharSet = CharSet.Ansi, SetLastError = true, ExactSpelling = true)]
private static extern int GetPrivateProfileString(string lpApplicationName, string lpKeyName, string lpDefault, global::System.Text.StringBuilder lpReturnedString, int nSize, string lpFileName);
[DllImport("kernel32.dll", EntryPoint = "WritePrivateProfileStringA", CharSet = CharSet.Ansi, SetLastError = true, ExactSpelling = true)]
private static extern int WritePrivateProfileString(string lpApplicationName, string lpKeyName, string lpString, string lpFileName);
public static string ReadValue(string Path, string section, string key)
{
global::System.Text.StringBuilder sb = new global::System.Text.StringBuilder(255);
dynamic i = GetPrivateProfileString(section, key, "", sb, 255, Path);
return sb.ToString();
}
public static void WriteValue(string Path, string section, string key, string value) { WritePrivateProfileString(section, key, value, Path); }
public static string textFileReader(string pathFileName)
{
string line;
StreamReader fs;
try
{
fs = new StreamReader(pathFileName);
line = fs.ReadToEnd();
/* อ่าน Encode จาก String ที่อ่านมาได้จาก text file */
Encoding encodeSource = Encoding.GetEncoding(fs.CurrentEncoding.CodePage);
fs.Close();
//* ............ */
Encoding systemEncode = Encoding.Default;
Encoding targetEncode = encodeSource;
/* สั่ง getbyte array จาก string ที่เราอ่านมา */
byte[] srcData = systemEncode.GetBytes( line );
byte[] dstData;
/* ถ้าเป้น Encode ต่างกัน windows และ text file ให้ Convert byte array ไปเป็น text file encode */
if( targetEncode != systemEncode )
dstData = Encoding.Convert( systemEncode, targetEncode, srcData );
else
dstData = srcData;
/* convert bytearray ไปเป็น string ด้วย text file encode */
return targetEncode.GetString(dstData);
}
catch(Exception ex)
{
throw new IOException("cannot find " + pathFileName,ex);
}
}
public static System.Collections.Generic.List<string> textFileReaderFormline(string pathFileName)
{
System.Collections.Generic.List<string> list = new System.Collections.Generic.List<string>();
System.IO.StreamReader fs;
fs = new System.IO.StreamReader(pathFileName, System.Text.Encoding.GetEncoding(874));
string line;
while ((line = fs.ReadLine()) != null)
{
list.Add(line);
}
return list;
}
}
}
การใช้งาน
Code (C#)
// ดึงมาใช้
string txt = TORServices.clsINI.ReadValue(@"C:\ini\log.txt", "Test", "connection");
//เขียนลงไป
TORServices.clsINI.WriteValue(@"C:\ini\log.txt", "Test", "connection","fsdfrgergfxfsdged");
Date :
2015-09-30 07:58:49
By :
lamaka.tor
มีแบบ VB.NET ไหมคับ อ่านแล้วไม่ค่อยเข้าใจเลย
Date :
2015-09-30 14:56:44
By :
cycbergame
Code (VB.NET)
Public Sub CrateDBConnection(ByVal FullExcelFileName As String)
Dim conString As String = System.IO.File.ReadAllText("D:\dbconfig.txt")
Dim cn As OleDbConnection
Dim strConnectionString As String = conString
Try
cn = New OleDbConnection(strConnectionString)
cn.Open
Catch As System.Exception
End Try
End Sub
Date :
2015-09-30 15:40:52
By :
Freedom
จัดปายครับ
Code (VB.NET)
using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;
namespace TORServices
{
public static class clsINI
{
[DllImport("kernel32.dll", EntryPoint = "GetPrivateProfileStringA", CharSet = CharSet.Ansi, SetLastError = true, ExactSpelling = true)]
private static extern int GetPrivateProfileString(string lpApplicationName, string lpKeyName, string lpDefault, global::System.Text.StringBuilder lpReturnedString, int nSize, string lpFileName);
[DllImport("kernel32.dll", EntryPoint = "WritePrivateProfileStringA", CharSet = CharSet.Ansi, SetLastError = true, ExactSpelling = true)]
private static extern int WritePrivateProfileString(string lpApplicationName, string lpKeyName, string lpString, string lpFileName);
public static string ReadValue(string Path, string section, string key)
{
global::System.Text.StringBuilder sb = new global::System.Text.StringBuilder(255);
dynamic i = GetPrivateProfileString(section, key, "", sb, 255, Path);
return sb.ToString();
}
public static void WriteValue(string Path, string section, string key, string value) { WritePrivateProfileString(section, key, value, Path); }
public static string textFileReader(string pathFileName)
{
string line;
StreamReader fs;
try
{
fs = new StreamReader(pathFileName);
line = fs.ReadToEnd();
/* อ่าน Encode จาก String ที่อ่านมาได้จาก text file */
Encoding encodeSource = Encoding.GetEncoding(fs.CurrentEncoding.CodePage);
fs.Close();
//* ............ */
Encoding systemEncode = Encoding.Default;
Encoding targetEncode = encodeSource;
/* สั่ง getbyte array จาก string ที่เราอ่านมา */
byte[] srcData = systemEncode.GetBytes( line );
byte[] dstData;
/* ถ้าเป้น Encode ต่างกัน windows และ text file ให้ Convert byte array ไปเป็น text file encode */
if( targetEncode != systemEncode )
dstData = Encoding.Convert( systemEncode, targetEncode, srcData );
else
dstData = srcData;
/* convert bytearray ไปเป็น string ด้วย text file encode */
return targetEncode.GetString(dstData);
}
catch(Exception ex)
{
throw new IOException("cannot find " + pathFileName,ex);
}
}
public static System.Collections.Generic.List<string> textFileReaderFormline(string pathFileName)
{
System.Collections.Generic.List<string> list = new System.Collections.Generic.List<string>();
System.IO.StreamReader fs;
fs = new System.IO.StreamReader(pathFileName, System.Text.Encoding.GetEncoding(874));
string line;
while ((line = fs.ReadLine()) != null)
{
list.Add(line);
}
return list;
}
}
}
Code (VB.NET)
' ดึงมาใช้
Dim txt As String = TORServices.clsINI.ReadValue("C:\ini\log.txt","Test","connection")
'เขียนลงไป
TORServices.clsINI.WriteValue("C:\ini\log.txt", "Test", "connection","fsdfrgergfxfsdged")
Date :
2015-09-30 16:10:17
By :
lamaka.tor
@ไอ้หนู OmeNaChae และสิ่งที่คุณเคยเห็นจากโปรแกรมเมอร์คนอื่นฯ
รูปแบบการเชื่อมต่อ Microsoft Jet OLE DB 4.0 (Standard security)
https://www.connectionstrings.com/access/
Code (VB.NET)
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SexDatabase.mdb;User Id=admin;
Password=;
เรียนรู้นอกตำรากับ VB.NET
Code (VB.NET)
Imports System.IO
Imports System.Text
'Hard code for demo purpose..
Dim fileName As String = Application.StartupPath & "/" & "connectDB.txt"
Dim lines As New List(Of String)(File.ReadAllLines(fileName))
'StartWith/EndWith/Other...
Dim ห1 = lines.SelectMany(Function(หอย, เหม็น) If(หอย.Contains("Provider"), {เหม็น}, {})).ToArray()
Dim ห2 = lines.SelectMany(Function(หอย, เหม็น) If(หอย.Contains("Data Source"), {เหม็น}, {})).ToArray()
Dim ห3 = lines.SelectMany(Function(หอย, เหม็น) If(หอย.Contains("User Id"), {เหม็น}, {})).ToArray()
Dim ห4 = lines.SelectMany(Function(หอย, เหม็น) If(หอย.Contains("Password"), {เหม็น}, {})).ToArray()
'Finally
Dim dt As New DataTable
Using cn As New OleDbConnection(ห1 + ห2 + ห3 + ห4)
Using da As New OleDbDataAdapter("Select * From Where", cn)
da.Fill(dt)
End Using
End Using
Date :
2015-10-01 11:32:55
By :
หน้าฮี
จาก #NO 6 คำถามที่เพิ่มรอยหยักในสมอง
"ไฟล์ connectDB.txt"
ต้องการเขียนแทรกบรรทัดที่ x ต้องทำอย่างไร?
ต้องการเขียนทับบรรทัดที่ x ต้องทำอย่างไร?
ต้องการเขียนเพิ่มบรรทัด ต้องทำอย่างไร?
Good Luck.
Date :
2015-10-01 11:46:14
By :
หน้าฮี
Load balance : Server 02