ก็ คืออยากตัด คำที่ไม่ต้องการออกอ่ะ ครับ คิดไม่ออกจริงๆ
เช่น textbox1พิมพ์ว่า whta is
textbox2 แสดง is ประมาณนี้อ่ะครับ โดย ตรวจสอบคำที่จะตัดใน data base
Imports System.Data.OleDb
Public Class Form1
Dim con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\word.mdb"
Dim conn As New OleDbConnection
Dim da As OleDbDataAdapter
Dim comm As OleDbCommand
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If conn.State = ConnectionState.Open Then conn.Close()
conn.ConnectionString = con
conn.Open()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Qtext As String = "select * from word"
Qtext &= " where word = '" & TextBox1.Text & "'"
da = New OleDbDataAdapter(Qtext, conn)
Dim dt As New DataTable
da.Fill(dt)
If dt.Rows.Count > 0 Then
MessageBox.Show("ตัดคำซ้ำอออกเรียบร้อยแล้ว")
TextBox2.Text = TextBox1.Text
End If
Load balance : Server 04
