Question

我是由一位同事每周给我指派的VB6教授的。我想这次他高估了我的技能。我应该在包含品牌ID及其各自品牌名称的文本文件中找到一行。一旦找到该行，我就将其拆分为变量并使用该信息创建一个程序，通过插入的SQL语句找到该品牌，并替换＆＃34; BrandName＆＃34;在项目描述中使用＆＃34; NewBrandname＆＃34;。

这是我与

合作的内容

Dim ff as integer
ff = freefile
    Open "\\tsclient\c\temp\BrandNames.txt" For Input as #ff
    Do Until EOF(ff)
      Dim fileline as string,linefields() as string
      line input #ff, fileline
      linefields = split(fileline,",")
      brandID = linefields(0)
      BrandName = linefields(1)
      NewBrandName = linefields(2)

我想在文本文件中使用以下行，因为它是我正在使用的品牌：

BrandID =CHEFJ, BrandName=Chef Jay's NewBrandName=Chef Jays

那是什么＆＃39; fileline＆＃39;是 - 只是不知道如何选择那一行

至于更新信息，请点击以下内容：

dim rs as ADODB.Recordset, newDesc1 as String
rs = hgSelect("select desc1 from thprod where brandID='CHEFJ'")
do while not rs.eof
  if left(rs!desc1,len(BrandName)) = BrandName then
  dim newDesc1 as string
  newDesc1 = NewBrandname & mid(rs!desc1, len(BrandName)+1)
hgExec "update thprod set desc1=" &  adoquote(NewBrandName) & "+right(desc1,len(BrandName))" where brandId=CHEFJ and desc1 like 'BrandName%'"
end if
rs.movenext
loop
end while

我如何把它们放在一起？

Answer 1

只是为了给你一些指导;

首先，您需要阅读您正在进行的文本文件。
然后，一旦获得数据，您需要发现格式并SPLIT数据以仅检索您需要的部分。

例如，如果从textfile读取的数据为您提供BrandID=CHEFJ, BrandName=Chef Jay's, NewBrandName=Chef Jays，您将看到数据由逗号,分隔，并且属性值前面带有等号。关注如何拆分的更多信息，请关注LINK。

分割数据后，您可以轻松地使用它们继续进行数据库更新。要更新数据库，首先需要创建连接。然后使用从文本文件中提取的数据更新查询。
最后，您需要使用ADODB执行查询。这EXAMPLE可以提供帮助。
不要忘记处理使用过的物品，包括你的连接。

希望它有所帮助。

使用VB6更新数据库中的信息

1 个答案: